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SUP’R’TERMINAL IS AN 80 COLUMN BY 24 LINE PLUG-IN 
COMPATIBLE BOARD FOR THE APPLE II COMPUTER 


SPECIFICATIONS 


80 Columns by 24 lines, upper and lower case; all 
128 ASCII characters. 

Upper and Lower case data entry using the APPLE 1 1 
keyboard. 

Includes an Upper and Lower case 5x8 dot matrix 
ASCII character set, and inverse alpha characters. 

Character set can be user definable 

Includes VBC™ (video balance circuit) which enables 
the use of displaying 80 columns on an inexpensive 
8 MHz CRT monitor 

Shift Lock Feature 

Works with APPLE PASCAL and APPLE BASIC 


Incorporates PASCAL and BASIC control characters 
ALL monitor-type escapes are valid 

Follows protocols of PASCAL and BASIC operating 
systems 

Compatible with ALL APPLE II peripherals. 

Effective baud rate greater than 10,000; fast scrolling 
and clearing 

Synchronous operation with APPLE II 

Can be used with APPLE 1 1 communication interface 
board to act as self contained terminal for time- 
sharing or other applications. 


PATENT PENDING 


M&R ENTERPRISES 

P.O. BOX 61011, Sunnyvale, CA 94088 



Solve your personal energy crisis. 
Let VisiCalc Software do the work. 


With a calculator, pencil and paper you can spend hours plan- 
ning, projecting, writing, estimating, calculating, revising, erasing 
and recalculating as you work toward a decision. 

Or with the Personal Software ,M VisiCalc program and your 
Apple* II you can explore many more options with a fraction of 
the time and effort you've spent before. 

VisiCalc is a new breed of problem-solving software. Unlike 
prepackaged software that forces you into a computerized 
straight jacket, VisiCalc adapts itself to any numerical problem 
you have. You enter numbers, alphabetic titles and formulas on 
your keyboard. VisiCalc organizes and displays this infor- 
mation on the screen. You don't have to spend your time 
programming. 

Your energy is better spent using the results than get- 
ting them. 

Say you're a business manager and want to project 
your annual sales. Using the calculator, pencil and paper 
method, you'd lay out 12 months across a sheet 
and fill in lines and columns of figures on 
products, outlets, salespeople, etc. You'd cal- 
culate by hand the subtotals and summary 
figures. Then you'd start revising, erasing 
and recalculating. With VisiCalc, you simply {• 
fill in the same figures on an electronic 
"sheet of paper" and let the computer do 
the work. 

Once your first projection is complete, 
you're ready to use VisiCalc's unique, 
powerful recalculation feature. It lets you | 
ask "What if?'/ examining new options 
and planning for contingencies. "What if" • 
sales drop 20 percent in March? Just type in 
the sales figure. VisiCalc instantly updates 
all other figures affected by March sales. 


Or say you're an engineer working on a design problem and are 
wondering "What if that oscillation were damped by another 10 
percent?" Or you're working on your family's expenses and 
wonder "What will happen to our entertainment budget if the 
heating bill goes up 15 percent this winter?" VisiCalc responds 
instantly to show you all the consequences of any change. 

Once you see VisiCalc in action, you'll think of many more 
uses for its power. Ask your dealer for a demonstration and dis- 
cover how VisiCalc can help you in your professional work and 
personal life. 

You might find that VisiCalc alone is reason enough to 
own a personal computer. 

VisiCalc is available now for Apple II computers with 
versions for other personal computers coming soon. The 
Apple II version requires a 32k disk system. 

For the name and address of your nearest VisiCalc 
dealer, call (408) 745-7841 or write to Personal Software, Inc., 
592 Weddell Dr., Sunnyvale, CA 94086. If your 
favorite dealer doesn't already carry Personal 
Software products, ask him to give us 
a call. 




VisiCalc was developed exclusively for 
Personal Software by Software Arts, Inc., 
Cambridge, Mass. 


TM— VisiCalc is a trademark of 
Personal Software, Inc. 


‘Apple is a registered trademark 
of Apple Computer, Inc. 




MOVING DATA AT A SNAIL’S PAGE 
BECAUSE YOU’RE FLOPPY BOUNOP 

Let Corvus Systems put you back in the race! 


» r V 0 S lift 

directory 


— 


@ HITACHI 


■ For TRS-80t, Applet (including Apple 
Pascal), S-100 Bus— and now LSI-11. 

■ Fully compatible hardware/software. 

■ 10-million byte disk: IMI-7710 

■ Proven Winchester technology. 

■ Z-80 based Corvus disk controller. 

■ Comprehensive disk diagnostics. 

■ Up to 4 disks per system. 

■ System $5350 (LSI-1 1 $5950), 
add-on disk $3690. 

Corvus offers a complete systems solution 
to the mass storage problem of micro 
computers. In a package smaller than a 
briefcase, we provide an intelligent 
controller, disk, and personality module. 

Call or write today for additional information. 
Get up to speed with Corvus. 

Now! Corvus speaks Apple ™ Pascal ™j 

/ <- •¥' tjv t , '• . . 




tTRS-80 is a registered trademark of Radio Shack, a Tandy Co. 
tApple is a registered trademark of APPLE Computers, Inc. 


900 S. Winchester Boulevard 
San Jose, California 95128 
408/246-0461 





If you have an Apple* and you want to interface it with 
parallel and serial devices, we have a board for 
you that will do both. It’s the AIO.™ 

Serial Interface. ~ 

The RS-232 standard assures maximum compat- 
ibility with a variety of serial devices. For ex- ^ m 

ample, with the A IO you can connect your Apple* 
to a video terminal to get 80 characters per line i 
instead of 40, a modem to use time-sharing .. 

services, or a printer for hard copy. The 
serial interface is software programmable, 
features three handshaking lines, and meam* 

includes a rotary switch to select from 
7 standard baud rates. On-board firm- 
ware provides a powerful driver J 

routine so you won’t need to write any 
^ software to utilize the interface. 


Parallel Interface. 

This interface can be used to connect your 
Apple* to a variety of parallel printers. The 
programmable I/O ports have enough lines 
to handle two printers simultaneously with 
handshaking control. The users manual 
includes a software listing for controlling 
parallel printers or, if you prefer a par- 
allel driver routine is available in firm- 
ware as an option. And printing is 
only one application for this general 
purpose parallel interface. % 




Two boards in one 

The AIO 


the only board on the market that can interface the Apple 
to both serial and parallel devices. It can even do both at the same 
time. That’s the kind of innovative design and solid value that’s been 
going into SSM products since the beginning of personal computing. 
The price, including PROMs and cables, is $135 in kit form, or $175 
assembled and tested. See the AIO at your local computer 
store or contact us for more information. 


2116 Walsh Avenue 
Santa Clara, California 95050 
(408) 246-2707 


QUESTIONS 
& ANSWERS 
FROM 
SSM 

“What equipment can be used with the 
AIO?” 

Since the introduction of the AIO Serial & 
Parallel Apple Interface in September 1979, 
thousands of units have been sold to interface 
the Apple with a variety of printers and 
terminals. A partial list of devices that have 
actually been tested with the AIO includes: 

IDS 440 Paper Tiger 
Centronics 779 
Qume Sprint 5 
NEC Spin writer 
Comprint 
Heathkit H14 
IDS 125 
IDS 225 
Hazeltine 1500 
Lear Siegler ADM-3 
DTC 300 
AJ 841 


“Will the AIO work with 
TIGER at 1200 baud serial?” 


PAPER 


Yes. The AIO has 3 handshaking lines for 
serial connections. The baud rate can be set 
with a rotary switch to 1 10, 300, 600, 1200, 2400 
and 4800 baud. (Ask for a data sheet for more 
details on how to go up to 19,200 baud.) 

“Does the AIO work with Pascal?” 

Yes. The current AIO serial firmware works 
great with Pascal. If you want to run the 
parallel port, or both the serial and parallel 
ports with Pascal, order our “Pascal Patcher 
Disk”. 

“I’m an OEM with a particular need. Can 
SSM help me?” 

Yes. The AIO is just one of several boards for 
the Apple th at SSM will be introducing over the 
next year. We are also receptive to developing 
products to meet special OEM requirements. So 
please contact us if you have a need and there is 
nothing available to meet it. 


SSM will soon be moving to a new and larger 
facility in San Jose. Look for our new address 
and telephone number in our ads in Byte 
magazine, page 11. 

We welcome inquiries from new dealers, 
distributors and OEM’s. 

Please send in any suggestions, or applications 
information (AIO uses, printer and terminal 
hook-up diagrams, etc.) or your ideas for new 
products. We welcome your comments! 





Give your APPLE 
mainframe power 


and give your whole family a world of information, education, 
entertainment and communication with the first information utility. 


Enhance your APPLE to give you 
and your family more use and value 
of your current hardware than you 
thought possible through THE 
SOURCE . . . the world's first infor- 
mation and communication utility 
for microcomputers. 

As Near As Your Telephone 

With a simply accoustical connec- 
tion to your telephone, your APPLE 
can become a part of a vast informa- 
tion and communication network 
which now serves thousands of home 
and business computers . . . through 
a local phone call in over 300 U.S. 
cities. 

From UPI, New York Times 
to Local Entertainment 
Guides 

With THE SOURCE'S on-line key- 
word access, you can have important 
information sources in your own 
home . . . the United Press Interna- 
tional wire service, over 5,000 infor- 
mational abstracts from the New 
York Times Consumer Data base, 
stock market reports, restaurant and 
entertainment information, dozens of 
sophisticated computer games, edu- 
cational programs, travel information 
and reservations, a discount buying 
service . . . and hundreds of other 
information and entertaining services. 

Instant Nationwide 

Communication with Other 
Personal and Business 
Computers 

With your SOURCE network sub- 
scription, you will have the capability 


of instant nationwide communication 
with thousands of other microcom- 
puter users on THE SOURCE network. 
Use it to transmit programs and data, 
to relay business information, or 
simply to chat with friends ... at a 
fraction of the cost of other message 
systems. 

Expand Your Capacity for 
Programming and Storage 

Through Mainframe Power 

For your larger or more compli- 
cated programs, THE SOURCE offers 
you the ability to upload and down- 
load information to a large mainframe 
with unlimited storage capacity. You 
can program in FORTRAN, COBOL, 
EXTENDED BASIC, and RPG II with 
your APPLE and you'll never have a 
capability or a capacity problem 
again. 

The Source . . . Easy to Use 
for Your Whole Family 

You don't have to be a computer 
whiz to enjoy THE SOURCE'S many 
information, entertainment, and com- 
munication advantages. All SOURCE 
services and information resources 
can be accessed in plain English with 
absolutely no prior knowledge re- 
quired of computer programming so 
the whole family can enjoy full use 
and value. 

The Source . . . 

An Affordable Compliment 
to Your APPLE System 

You'd pay thousands of dollars to 
duplicate the information and en- 
tertainment programs THE SOURCE 


offers. But THE SOURCE costs as 
little as $2.75 per connect hour (non- 
prime time), giving your family a 
value which is impossible to beat. 

Find Out How The Source 
Can Give More Power and 
Value to Your APPLE 

To find out how THE SOURCE'S 
many features can expand and com- 
plement the value of your APPLE 
and how easy it is to connect to the 
world's first information utility, 
simply complete the coupon below or 
call our toll-free information hotline. 
There's no obligation. 



Free Information Request 

Please send me your free guide to THE 
SOURCE Information Utility for personal 
computers. I understand that I am under no 
obligation. 

□ I currently have a home computer. 

MAKE: MODEL: 

□ Please send me information on com- 
patible home microcomputers including 
the special low-cost equipment packages 
offered by THE SOURCE. 

NAME: 

ADDRESS: 

CITY: 

STATE: ZIP: 

Please mail this coupon to: 

THE SOURCE 

1616 Anderson Road* McLean, Va 22102 

Toll-free hotline: 800-336-3330 
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by 

Val J. Golding 

To define user group, we must first define user. Very simply a 
user is an individual who has purchased or otherwise acquired a' 
product. Webster defines user as “a person or thing that uses”. In 
the context to which we refer herein, user means an Apple II 
| computer user. Further, in our own definition user group implies 
in our own definition, user group implies a gathering or associa- 
tion of people with a common goal: to share with the others the; 
knowledge in various areas that individuals may have gained. 

Currently in the United States, it is estimated that there are 
between 50 and 100 active Apple computer user groups. User 
groups are not restricted to Apple users by any means. There are 
also a number of groups devoted to the Pet, TRS80, etc. 

In addition, going back a bit further there were (and still are) 
computer dubs with a wider range of interest, i.e., not devoted to 
a specific brand or type of computer. These clubs were built 
around first generation microcomputers such as Imsai, Sol, etc., a 
breed which for the most part require some background in com- 
puter technology. 

These micros are not what the consumer expects today of ma- 
chines like Apple or Exidy, where one can walk into a computer 
store, plunk down a thousand or so and walk out with a computer 
that can be taken home, plugged in and immediately be put to 
use. 

In the mid 70% buying and assembling a microcomputer was 
akin to buying and assembling a stereo system, taking it home 
and plodding your way through a maze of wires and manuals, 
hoping that your pride and joy eventually would “run”. Out of 
this was born the first “user groups”, the computer clubs of the 
period. These clubs were of necessity hardware-oriented. 

Today the user group has taken on a new meaning and signifi- 
cance; they are groups where now the primary accent is on soft- 
ware and the exchange of information more closely allied to pro- 
gramming and operation. 

To understand the functions of a user group, it is necessary to 
look at some of the groups that are acknowledged as leaders and 
that were among the earliest formed. 

The first group around, to the best of our knowledge, was the 
Original Apple Corps in Los Angeles. They existed as early as 
December, 1977. Other groups that qualify as “pioneer” Apple 
user groups include the San Francisco Apple Core and Seattle’s. 
Apple Pugetsound Program Library Exchange. It was only natural 
that as the microcomputer industry developed on the west coast, 
that the first user groups would be from that area. 

We have requested that each of the groups that contributed to 
the formation of the International Apple Corps furnish us with a 
bit of history and background on their respective organizations. 
Those vignettes follow here. 


ORIGINAL APPLE CORPS 

by 

Kip Reiner 

The Original Apple Corps was founded by AVIDD Electronics 
in Long Beach, CA. Sandy Tiedeman was the first president of 
the club. He organized the first meeting of the Original Apple 
Corps in December 1977. This gave the Original Apple Corps the 
distinction of being the first Apple computer club in the country. 
The Los Angeles area was the early hot bed of activity for the 
Apple II as shown by an increase from six members at the first 
meeting to over thirty at the second meeting a month later. 

The Original Apple Corps has held two meetings at computer 
shows with very good results: The April 1978 meeting was held 
.at the Percomp Computer Show in Long Beach. Over one-hun- 
dred members listened to Phil Roybal, marketing manager for 
Apple Computer, Inc. as he showed the Disk II prototype with a 
makeshift operating system which had to be loaded into memory 
in three different segments. At the third West Coast Computer 
Faire in Los Angeles, the November 1978 meeting was held. 
Over three hundred members in a packed meeting room listened 
to Steve Wozniak, the designer of the Apple computer, as he told 
about the history of Apple Computer, Inc. 

The Original Apple Corps meets on the second Sunday of the 
month in Lecture Hall 151 at Cal State University, Long Beach, 
at 12:00 noon. They use an Advent color projection television for 
video display along with black and white monitors along the 
sides of the room. Free software is given out at most meetings 
normally consisting of a full disk. In over two years of monthly 
meetings, the Original Apple Corps has had representatives of 
many major hardware and software manufacturers as speakers. 

The Original Apple Corps has made available a ready to run 
library with over 500 programs on disk for a nominal charge. 
These include programs in business, scientific, education, util- 
ities, and games. 

This month marks the one year anniversary of the Original 
Apple Corps magazine “Applesauce.” Our club is very proud of 
the magazine as a major source of information about the Apple 
computer and related products. In the last year the magazine has 
had numerous articles on programming in BASIC, Pascal, and 
assembly languages. The editor of “Applesauce,” Randy Hyde, 
is very experienced in Pascal. Both software and hardware reviews 
are included as regular features. In a recent issue Hi-res graphics 
was presented in depth. 

The Original Apple Corps has an electronic bulletin board 
system up and running as an information exchange for Apple 
Computer users. 

The club welcomes all hardware and manufacturers to speak 
at our meetings. 

Information on membership, subscriptions to “Apple- 
sauce”, and the program library are available at the following 
address: 

Original Apple Corps 

1 2804 Magnolia 
Chino, CA 91710 

Kip Reiner 
President 
Original Apple Corps 


DOES "GET" GET YOUR GOAT? 

In APPLESOFT when using the "GET" command in conjunction with DOS, follow 
with a PRINT, else GET tends to do nasty things and mess up your DOS. 
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THE SAN FRANCISCO APPLE CORE 

by 

Ken Silverman 


The APPLE CORE OF SAN FRANCISCO is a non-profit or- 
ganization comprised of and supported by Apple II Computer 
owners. The Apple Core is run entirely by volunteer officers and 
committees. The club endeavors to aid other APPLE owners. All 
members are individuals (and their families), and NO shops, stores 
or corporations are directly registered. (However, any shop may 
register an employee c/o that shop). 

MONTHLY MEETINGS are held at Homestead Savings, at 
5757 Geary Avenue, in San Francisco (at the corner of Geary and 
22nd Avenue). Meetings are held on the first Saturday of each 
month at 1 0:00 a.m. 

THE CIDER PRESS is the official publication provided to the 
membership February through June, and September through De- 
cember. Included are program listings, tips, special features, re- 
views, editorial comment . . . The “Best of the Cider Press’ is 
published every January. “Apple Peelings’ takes over in July and 
August with an abbreviated , format consisting of minutes of 
meetings, Disk of the Month listing, product information and any 
News Flashes. 

The APPLE CORE LIBRARY of contributed programs is 
arranged by general categories. Members living in the San Fran- 
cisco Bay area may copy programs from the library at the fol- 


lowing locations: 

Village Electronics. 668-4243 

Computerland of San Francisco 546-1592 

Computerland of Belmont 595-4232 

Computerland of Marin 459-1767 

Computerland of the Castro 864-8080 

AIDS 221-8500 


Courtesy and common sense dictate that a member call in 
advance to reserve use of required equipment. The stores pro- 
vide this service without charge. (Their aid helps us survive, so 
remember to return the favor with your patronage. The local 
stores have been VERY HELPFUL). 

Out of area members can get programs from the library 
through the mails in the following manner: 

1. A member is required to donate at least one original or public 
domain program (not Copyrighted, please). 

2. Donated programs must be sent on a disk or a computer tapfc 
placed in a self-addressed, stamped proper mailer, suitable for 
returning the disk or tape. Please use a Program Submission 
form. Include a note indicating the desired volume from the 
library that you would like to have copied. Carefully package 
the mailer and Note: 

CONTAINS LIVE COMPUTER PROGRAMS - DO NOT EX- 
POSE TO X-RAYS OR ELECTRICAL FIELDS - DO NOT 
BEND OR FOLD. 

Send to: 

The Apple Core 
Library Exchange 
P.O. Box 4816 
San Francisco, CA 941 01 

INFORMATION/APPLECATION 

Please follow instructions as we do not want to see your disks 
or tapes ruined any more than you do. Only one library disk or 
tape will be processed per month. (The DOM-Disk of the Month 
is considered separately). 

. The complete LIBRARY #1 is available to members for $150. 
Over 340 programs on 20 diskettes are packaged in diskette hol- 
ders, and bound in a SF Applecore binder. Over 30 pages about 
the library are included. 
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The DISK OF THE MONTH is a group of recently donated 
programs or updated utilities, etc. It was originated to encourage 
new members to be able to write programs by having examples 
to study and enjoy. 

Members unable to come to the meetings can send in $7.50 
(US) for the current DOM which covers the cost of the disk, 
mailing and handling. Three past months are also available for 
$7.50 each. 

Members who come to the meetings can obtain the same 
DOM’s for $5.00 each. Prices are subject to change. 

NOTE: All programs on the DOM’s go into the library according 
to category. The stores do not have the COM’s on file. 

Current interest groups include NU’ERS (for new users), AS- 
SEMBOLEERS, CAI (Computer Assisted Instruction), Personal 
Finance, Medical & Health, DOS (Disk Operating Syntax), In- 
come Tax Programmers, etc., etc. 


APPLECATION FORM 

NAME: 

ADDRESS: 


Check One: 

□ New Member 

□ Renewal 


□ Address Update 


□ Newsletter Trade 
(Subject to Approval) 


PHONE NO 

MEMBERSHIP RATES: 

$15.00/yr. USA-Newsletter sent 3rd class 
$2D.00/yr. Foreign-Newsletter by surface mail 
$25.00/yr. Foreign-Newsletter by air. 

Send check or money order, US only. Send no cash! 


NOTE: In April yearly dues will be paid by all members. Amount 
will be pro-rated on your renewal date. 


STOCK MARKET SYSTEM 

For The Apple 1 1 With Disk 1 1 


Individual Chart/ 12 Week Running Average 



•INDIVIDUAL CHARTS 

• COMPARISON CHARTS IN COLOR 

• RUNNING AVERAGES PLOTTED AND ERASED 

• RESISTANCE/SUPPORT LINES PLOTTED 

• MAINTENANCE PROGRAM MAKES IT EASY TO 
UPDATE DATA, HANDLE STOCK SPLITS, ETC. . . 

• ONE YEAR'S WORTH OF WEEKLY STOCK DATA 
(HIGH, LOW, CLOSE & VOLUME) ON YOUR CHOICE 
OF ANY STOCKS ON THE NYSE OR AMEX 


• PROGRAMS & MANUAL $79.95 

STOCK DATA $9.95 per stock 

MANUAL ONLY $4.95 


• FOR MORE INFORMATION VISIT YOUR LOCAL 
COMPUTER STORE OR WRITE DIRECTLY TO: 


(915) 544-4397 


RTR SOFTWARE, INC. 
DEPT. AO 1 
P.O. BOX 12351 
EL PASO, TX. 79912 
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APPLE PUGETSOUND PROGRAM LIBRARY 
EXCHANGE 

by 

Val J. Golding 

It is curious, in retrospect, to examine ones past and attempt 
to determine what went wrong or what went right. As one might 
surmise, there is no one single factor responsible for the current 
popularity of Apple Pugetsound. 

Certainly there was no hope or expectation on behalf of 
A.P.P.L.E.’s founders that the group would grow to its present 
strength of well over 3000, or that it would achieve the measure 
of acceptance that it has, nearly strangling to death along the 
way, under the burden of a staggering work load. 

If any single factor can be held to account, it would have to 
have been the news releases printed in the summer, 1978 issues 
of magazines such as Byte and Kilobaud, at a time when Apple 
users were starving for information of any kind about their new 
computers, and user groups were few and far between. 

Even by June of 1978, Call —A.P.PoL.E., this group’s news- 
letter, had grown to 16 pages in size, and was acquiring some of 
the ear-marks of a “real” newsmagazine. No doubt the many sam- 
ple copies mailed out at that time provided the impetus for the 
growth that was to come. 

Also in mid-1978, A.P.P.L.E. implemented the concept of 
“Library Paks”, the popular format in which 20 or more assorted 
programs were made available to the members on a single low 
priced cassette. This author, in collaboration with Darrell Aldrich 
and numerous other individuals also conceived and wrote the 
“Programmer’s Workshop”, a collection of handy Integer Basic 
utility routines, one of the earliest of it’s type. 

On April 10, 1979, Apple Pugetsound Program Library Ex- 
change was incorporated as a Washington state non-profit corpor- 
ation. That status continues currently, and none of the officers 
draw compensation for their services, despite the long and hard 
hours turned in by all. The membership and order office cur- 
rently processes over one hundred pieces of mail daily, the rou- 
tine portions of which is handled by a full time contract em- 
ployee. The other divisions, production and shipping, treasury, 
and editorial are similarly staffed. 

Today, Apple Pugetsound has achieved a vast reputation for 
its high quality software and documentation. Call —A.P.PoL.E*, 
now a slick cover 56 page newsmagazine is available at computer 
dealers throughout the country, and is read by A.P.PoL.E. mem- 
bers in more than 20 countries. It too is known for its quality 
of content, and is considered by many as the authoritative source 
of Apple computer information. 

Last, but not least, through the “Call —A.P.P.L.E.” hot line, 
the club provides its members with a useful inquiry and informa- 
tion service, ranging from answering or referring programming 
problems to current events and new product information. 

It is not inexpensive to join, but the benefits far outweigh the 
cost. There is currently a one-time Apple-cation fee of $25.00 
and annual dues of $15.00 through December, 1980, for a total 
of $40.00. Members joining at any time during 1980 will receive 
all 1980 issues of Call —A.P.P.L.E at no additional cost. Checks 
should be made payable to “A.P.P.L*E.” and mailed to our new 
address, which may be determined by calling (206)271-6939. 

New members will receive by return mail an Apple-cation 
blank, order form and description sheets of the various software 
and publications available. 
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THE PHILADELPHIA APPLE CLUB 

by 

Neil Lipson 

The Philadelphia Apple Club was started in Feb., 1978 by Neil 
D. Lipson. Since then it has expanded to include numerous small 
clubs, and membership in total exceeds 200. 

Dues for the Philadelphia branch are only $10. At present 
there is no newsletter. The meetings are held the third Saturday 
of each month, at LaSalle College in Philadelphia, 1 1 :00 a.m. and 
last about three hours. 

There are numerous subgroups, among which include machine 
language, music, education, scientific, hardware, graphics, utili- 
ties, video, and light pen. The group is very eager to help and assist 
other groups in other areas of interest. 

About two diskettes of programs are distributed each month, 
consisting of public domain software only. Disks are distributed 
at the meetings only, at present. 

The meetings are held in a somewhat formal fashion, with an 
introduction, description of new events and news, new products, 
and then new software, with a question and answer session at the 
end. Periodically, we have speakers to give talks on various topics. 

We also coordinate closely with the Philadelphia Area Com- 
puter Society, which meets with us at LaSaJle College, in projects 
than can be used on the Apple as well as other computers, and 
there is a close interaction between PACS and the Apple Club. 
PACS has in excess of 350 members (excluding Apple owners). 
PACS was formed in 1977 by Dick Moberg, and the present presi- 
dent is Eric Hafler, also a member of the Apple group. 

THE MICHIGAN APPLE 

The Michigan Apple is the most prominent Apple users group 
currently active in Michigan. The group is most visible through a 
newsletter that they publish 10 times a year. They also conduct 
meetings 10 times a year on the last Tuesday of the month at 
alternate computer stores in the metropolitan Detroit area. They 
discuss club business and new products and applications for the 
Apple. 

Additional activities conducted through the Michigan Apple 
include the following: Club disks of original programs donated 
by members are made available to the members. Meetings of 
members with a common special interest are held periodically in 
member’s homes. The club also offers meetings of System Anal- 
ysis Groups (SAGs) that explore many aspects of the Apple com- 
puter in depth. A library of periodical and newsletter material is 
also maintained and cataloged for the use of members in doing 
research. 

To receive the Michigan Apple-Gram (our newsletter) or to 
join the club for the various other activities, here is the current 
address. 

THE MICHIGAN APPLE COMPUTER CLUB 

P.O. BOX 551 

MADISON HEIGHTS, MICHIGAN 48071 


CONVERT WITHOUT DISK 

If you have an Apple Com Card and a printer with tape punch 
and read you can convert Integer Basic to Applesoft by punching 
tape from an Integer program listing and reading back into Apple- 
soft. 
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APPLE BAY AREA COMPUTER USERS SOCIETY 
(ABACUS) < AB-A-CUS> 


THE ABACUS group is located in the San Francisco East-Bay 
area, specifically, Castro Valley, Calif. The club meets on the 2nd 
Monday of each month, at 7:00 p.m. Our group is approximately 
200 strong and growing. 

The ABACUS-II (NEWSLETTER) is published monthly and is 
included in the annual membership fee’of $12.00. The ABACUS 
library contains in excess of 500 programs and is available to all 
members, local or out of state. 

Additional information may be obtained by writing Larry 
Danielson, club treasurer at 5302 Camino Alta Mira, Castro Val- 
ley, CA 94546. 

ABACUS OFFICERS: President . . .Ed Avelar 2850 Jennifer 
Dr., Castro Valley, CA 94546 - (415) 538-2431. Vice President 
. . . Stephen Shank (415) 820-4374. Secretary . . . Dave Wilkerson 
Treasurer . . .Larry Danielson 5302 Camino Alta Mira, Castro 
Valley, CA 94546. (415) 581-2748. Librarian . . .Bill Walsh. 

The ABACUS is a founding member of the I.A.C. (INTER- 
NATIONAL APPLE CORPS). 

MEMBERSHIP APPLICATION FORM: 


NAME 

ADDRESS 

CITY, STATE, ZIP 

Phone //home 

Phone //work 

Occupation 

Mail to: ABACUS, 2850 Jennifer Dr., Castro Valley, CA 94546. 

WHAT IS THE INTERNATIONAL APPLE CORPS 

by 

Ken Silverman, Secretary 

On October 27-28, 1979 a meeting was held in San Francisco 
to discuss the formation of a non-profit organization to pass on 
all forms of information, both hardware and software, from 
Apple user groups and users, software and hardware companies, 


MEMOREX 

Floppy Discs 

Lowest prices. WE WILL NOT 
BE UNDERSOLD!! Buy any 

quantity 1-1000. Visa, Mastercharge 
accepted. Call free (800)235-4137 
for prices and information. All 
orders sent postage paid. 



and Apple Computer Incorporated. This is to provide a flow of 
information in both directions through one organization for the 
benefit of the end Apple users. 

The meeting was attended by representatives of the larger 
Apple user groups in the United States. At the end of the weekend 
the “INTERNATIONAL APPLE CORPS” was formed. An interim 
Board of Directors and Officers were elected, a basis for a consti- 
tution and bylaws were formed, and organizational goals and ob- 
jectives were set. 

The International Apple Corps will be made up of Apple User 
Clubs all over the United States with membership open to clubs 
in other countries. 


The International Apple Corps is set up to distribute public 
domain software, application notes, general Apple information 
and product information. There is also a committee just to help 
persons who wish to start an Apple club. 

In order for this organization to work, like your own club, it 
needs funding. We plan to obtain monies from many areas and 
user groups is just one of t'hese areas., To keep us going we are re- 
questing each club to send a “one time” $50 initiation fee for the 
CLUB to be a member of the INTERNATIONAL APPLE CORPS. 
At the first annual meeting in March, to coincide with the West 
Coast Computer Faire, a dues structure will be set. After your 
club joins it will be entitled to: 

1 . Access to an international library of programs 

2. An input-output device for questions and problems on any 
subject dealing with the Apple 

3. Access to printed information 

4. Reduced subscription rate for publication 

Upon receipt of your $50 we will send the club a package that 
contains most of Apple’s reference manuals (including the* new 
reference book), a collection of new application notes, and very 
soon the distribution of software. If you have any questions you 
can write us at our post office box, as shown on page 3. 
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SPACE TRIP 

by 

Mark Cross 


You’re zooming through space in your galactic scout. Souped 
up ion generators have boosted you to six times the speed of 
light. The stars are moving past your viewport. 

But wait! This is impossible! Any old spaceship can go faster 
than light, but you don’t know how to program your Apple to 
make the stars move past the viewport. This program simulates 
the view of moving stars seen by a fast spaceship. 

There is a background of distant stars that are so far away they 
seem to stay in the same place in the sky (lines 310-320). There 
are ten stars close to the moving spaceship which seem to spread 
out as the ship approaches. The math involved is simple. To make 
a star move away from the center by a constant such as 4/3 in 
line 420. The stars should move slower when they are near the 
center of the screen, straight ahead and far away. Stars at the 
edge of the screen will seem to move very fast and disappear off 
the edge of the viewport. 

The speed of the moving stars leaves something to be desired, 
even though this is Integer Basic with only ten points to be 
moved. You can make them move faster by using fewer stars in 
line .400 or multiplying by a bigger constant in line 420. Cross- 
hairs or a frame around the viewport would look good. More ad- 
vanced programmers might try a machine language routine to 
move the stars, or a shape table with an asteroid that grows in 
scale as it moves closer to the spaceship. 




NEW RELEASES FROM 


SYNERGISTIC SOFTWARE 


THE MODIFIABLE DATABASE 
by Chris Anson & Robert Clardy 


The Modifiable Database is a general purpose, user oriented 
database program that can be easily customized for your specific 
data management application. Create any number of application 
programs such as mailing lists, bibliography files, inventory controls, 
personnel files, accounting programs, etc. The only limitations is 
your own imagination. 

The program uses fast and flexible machine language search 
and '•sort routines, provides for easy record editing, and can search 
or print up to 2 disks of records with a single command. All 
commands are invocable by a few keystrokes. There's never been 
an easier to use or more flexible data management program. 
Modifier Module 1 includes accounting/numeric functions 
Modifier Module 2 includes output formatting functions 
Requires Applesoft, 48K disk 



PROGRAM LINE EDITOR 
by Neil Konzon 


The Program Line Editor is one of the 
most powerful program editing tools avail- 
able. Inserting, deleting, or replacing char- 
acters within a line can be accomplished 
with a few simple keystrokes without re- 
entering the entire line. Lower case text 
can be inserted into print statements with 
a simple command. 

The package also includes a keyboard 
macro capability. You can assign common 
commands or convenient routines to a key- 
board character. Thereafter, pressing ESC 
and that character will cause the function 
to be executed. A complete set of macros 
is provided for your use or modification. 

These uniquely powerful capabilities 
make programming in Integer or Applesoft 
Basic twice as fast as it used to be. (16K) 


ODYSSEY 
by Robert Clardy 

Embark on a heroic quest across the 
dreaded Sargalo Sea stopping to explore 
dangerous islands, caverns, and old castles. 
Gather the forces and weapons that you 
will need to destroy the fortress of the 
cruel Caliph of Lapour. 

Three interlocking programs using 
several high-res and low-res maps provide 
an unending variety of hazards, opponents 
and adventures. 

(48K Integer on Disk) 


HIGHER GRAPHICS 
by Robert Clardy 

Higher Graphics is a high resolution 
graphics package that lets you create de- 
tailed displays for business or game use 
and add graphics effects to your software. 
Package includes 3 utility programs, a text 
explaining the use of high-res graphics for 
display and animation effects, and sample 
shape tables with over 100 of the more 
commonly desired shapes. The programs 
allow new shapes and shape tables to be 
created and existing shape tables to be com- 
bined, edited, or rearranged. The screen 
manipulation program allows the simple 
placement of shapes, areas cf color, and 
text anywhere on the screen. 

(48K Integer & Disk) 


HIGH-RES TEXT 
by Ron & Darrell Aldrich 


Add colorful customized text to your 
high resolution graphics displays. The High 
Resolution Text Generator allows you to 
define your own character sets with normal 
or double sized characters. The defined 
characters can be printed in the size de- 
fined or in an expanded size. Large char- 
acters can be printed in any of 10 colors, 
the high res colors plus yellow, aqua, pink, 
navy blue, and grey. 

The text generator has all the features 
of a normal text screen such as scrolling, 
tracing over text with the cursor, etc. plus 
full lower case capability with no hardware 
modifications required. Use the character 
sets provided (standard, countdown, side- 
ways, etc.) or define your own for special 
purpose promotional displays, graphing, or 
games. 

(Machine language routines require 16K) 



NOW AVAILABLE 


GAMES CASS 

DISK 

Dungeon Campaign 

(1, 16K) 12.50 

15.00 

Dungeon Campaign 

(A, 32K) 12.50 

15.00 

Wilderness Campaign 

(1, 48K) 15.00 

17.50 

Dungeon & Wilderness (1, 48K) 

30.00 

Odyssey 

(1, 48K) 

25.00 

UTILITIES 


Higher Graphics 

(1, 48K) 

25.00 

High Res Text 

(l,A, 32K) 

32.50 

Program Line Editor 

(l,A, 16K) 

37.50 

BUSINESS 


Mailing List Database 

(A, 48K) 

34.50 

Modifiable Database 

(A, 48K) 

49.50 

Modifier Module 1 


15.00 

Modifier Module 2 


15.00 


AVAILABLE AT YOUR LOCAL DEALER OR SEND CHECK OR INQUIRY TO SYNERGISTIC 
SOFTWARE, 5221 120 AVE. S.E., BELLEVUE, WA 98006. WA RESIDENTS ADD 5.3% SALES TAX 
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INTRODUCTION 


This is a guide for the 6502 machine language programmer 
who wants to take advantage of the various subroutines in Apple- 
soft. The addresses included assume that the user has an Apple II 
Plus, an Applesoft firmware card, or a Language Card. This list 
is believed to be correct, but be warned that it was a spare time 
project. If you find errors, contact your user group. This data is 
meant for the experienced programmer, NOT THE BEGINNER. 
Read your Applesoft Reference manual for more information. 

Take special note of CHRGET. This subroutine is the heart of 
Applesoft. When Applesoft wants the next character or an instruc- 
tion it points TXTPTR at the program or the input buffer and 
JSRs to CHRGET. When Applesoft READs DATA, TXTPTR is 
temporarily set to the last used DATA statement. 

ABBREVIATIONS 

A the 6502 accumulator 
X the 6502 X register 
Y the 6502 Y register 
Z the zero flag of the 6502 status register 
C the carry flag of the 6502 status register 

A,X is a 16 bit number where A has the most significant byte and 
X the least significant byte. 


(Y,A) is the number or string whose address is in Y and A with 
the msb in Y and the Isb in A. 

FAC the floating point accumulator 

ARG the ARGument register 

msb most significant bit or byte 

Isb least significant bit or byte 

eol end of line token ($00) 


LABELS HEX ADDR LABELS 


A1 

A2 

ARYTAB 

BUF 

CHARAC 

CURLIN 

DATLIN 

DATPTR 

DSCTMP 

ENDCHR 

ERRFLG 

ERRLIN 

ERRNUM 

ERRPOS 

ERRSTK 

FBUFFR 

FIRST 

FORPNT 

FRESPC 

FRETOP 

H2 

HIGHDS 

HIGHTR 

HPAG 

INDEX 

INVFLG 

LASTPT 

LINNUM 

LOWTR 

MEMSIZ 

OLDLIN 

ORMASK 

PRGEND 

REMSTK 

SPDBYT 

STREND 


3C,3D Apple monitor pointer for cassette routines 
3E,3F Apple monitor pointer for cassette routines 
6B,6C Start of array storage 
200, 2FF Line input buffer 
OD Used by STRLT2 
75,76 The current line number (=FF if in direct 
mode. 

7B,7C Line number of current DAT A statement 
7D,7E The address of the next DATA comes from 
9D,9E, Temp string descriptor 
9F 

OE Used by SRTLT2 

D8 $80 if ONERR active 

DA,DB Line number where error occurred 

DE Which error occurred 

DC,DD TXTPTR save for HNDLERR 

DF Stack pointer value before error 

100-110 FOUT buffer 

F0 Used by PLOTFNS 

85,86 General pointer, see COPY 

71,72 Temp pointer for string storage routines 

6F,70 Bottom of string storage 

2C Used by PLOTFNS 

94,95 Used by BLTU 

96,97 Used by BLTU 

E6 HIRES page to plot on. ($20 for HGR, 

$40 for HGR2) 

5E,5F Temp pointer for moving strings 
32 Mask for inverse output 
53 Last used temp string pointer 
50,51 General purpose 16 bit number location 
9B,9C General purpose register. GETARYPT* 
FINDLN, BLTU 
73,74 HIMEM 
77,78 Last line executed 
F3 Mask for flashing output 
AF,BO The end of the program text 
F8 Stack pointer saved before each statement 
FI Speed = delay number 
6D,6E The top of array storage 


STRNG1 

STRNG2 

SUBFLG 

TEMPPT 

TXTTAB 


AB,AC Pointer to a string. See MOVINS 
AD,AE Pointer to a string. See STRLT2 
14 $00 subscripts allowed, $80=no subscripts 

52 Last used temporary string descriptor 
67,68 Start of program text 
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V2 

2D 

Used by PLOTFNS 

VALTYP 

11 

Flags last FAC operation 0=number, FF= 



string 

VARPNT 

83,84 

Used by PTRGET 

VARTAB 

69.6A 

Start of variable storage 


TXTPTR INPUT ROUTINES 


CHRGET 00B1(177) (Increment TXTPTR) 

CHRGOT 00B7(1 83) (No increment) 

These routines load A from TXTPTR and set certain 6502 status 
flags. X and Y are not changed. 

On exit: 

A=the character 

Z is the set if A V or eol ($3A or $00) 

C is clear if A is an ASCII number (TP to ‘9’); 

TXTPTR TO INTEGER 

LINGET DAOC (55820) 

Read a line number (integer 0 to 63999) from TXTPTR into 
LINNUM. LINGET assumes that the 6502 registers and A have 
been set up by the CHRGET that fetched the first digit. Normally 
exits through CHARGET which fetches the character after the 
number. If the number is greater than 63999 then LINGET exits 
via SYNTAX ERROR. LINNUM is zero if there is no number at 
TXTPTR. 

GTBYTC E6F5 (51925) 

JSR to CHRGET to gobble a character and fall into GETBYT. 

GETBYT E6F8 (59128) 

Evaluates the formula at TXTPTR, leaves the result in FAC, and 
falls into CONINT. 'n the entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts the 
first number in FIRST and the second number in H2 and V2. 

PLOTFNS FIEC |(61932)\ 

Get 2 LORES plotting coordinates (0-47,0-47) from TXTPTR 
separated by a comma. On entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts 
the first number in FIRST and the second number in H2 and V2. 


FAC format 

-10 84 A0 00 00 00 FF 

10 84 A0 00 00 00 00 

Arithmetic routine calling conventions: 

For single argument functions: 

The argument is in FAC. 

The result is left in FAC. 

For two argument functions: 

The first argument is in ARG (see CONUPK). 

The second argument is in FAC. 

The result is left in FAC. 

FLOATING POINT REGISTERS 

NOTE: many of the following locations are used for other 
things when. not being used by the floating point math package. 



FAC 

ARG 

TEMPI TEMP2 

TEMP3 

RND 

EXP 

9D 

A5 

93 

98 

8A 

C9 

HCHO 

9E 

A6 

94 

99 

8B 

CA 

MOH 

9F 

A7 

95 

9A 

8C 

CB 

MO 

A0 

A8 

96 

9B 

8D 

CC 

LO 

A1 

A9 

97 

9C 

8E 

CD 

SGN 

A2 

AA 


(packed format) 



FLOATING POINT OPERATORS 

FMULT E97F (59775) 

Move the number in memory pointed to by Y,A into ARG and 
fall into . . . 

FMULTT E982 (59778) 

Multiply FAC and ARG. On entry A and Z reflect FACEXP. 

FDIV EA66 (90006) 

Move the number in memory pointed to by Y,A into ARG and 
fall into . . . 

FI DVT EA69 (60009) 

Divide ARG by FAC. On entry A and Z reflect FACEXP. 

FADD E7BE (59326) 

Move the number in memory pointed to by Y,A into ARG and 
fall into . . . 

FADDT E7C1 (59329) 

Add FAC and ARG. On entry A and Z reflect FACEXP. 


HFNS F6B9 (63161) 

Get HIRES plotting coordinated (0-279,0-191) from TXTPTR. 
On entry TXTPTR points to the first character of the formula for 
the first number. Leaves the 6502 registers set up for HPOSN. 

On exit: 

A= vertical coordinate 

X= Isb of, horizontal coordinate 

Y= msb of horizontal coordinate. 

FLOATING POINT MATH PACKAGE INTRODUCTION 

This ifc the number format used throughout Applesoft: 

The exponent is a single byte signed number (EXP) in excess 
$80 form (the signed value has $80 added to it). The mantissa is 
4 bytes (HO, MOH, MO,LO). The binary point is assumed to be 
to the right of the most significant bit. Since in binary floating 
point notation the msb is always 1, the number's sign is kept 
there when the number is stored in packed form in memory. 
While in the math package the sign is kept in a separate byte 
(SGN) where only bit 7 is significant. If the exponent is zero 
then the number is zero although the mantissa isn’t necessarily 
zero. 


Examples: 


EXP HO 

Packed format 

MOH 

MO 

LO 

SGN 

-10 

84 

A0 

00 

00 

00 

10 

84 

20 

00 

00 

00 


FSUB E7A7 (59303) 

Move the number in memory pointed to by Y,A, into ARG and 
fall into . . . 

FSUBT E7AA (59306) 

Subtract FAC from ARG. On entry A and Z reflect FACEXP. 

FPWRT EE97 (61079) 

Exponentiation (ARG to the FAC power). On entry A and Z 
should reflect the value of FACEXP. 

NOTE: Most FAC move routines set up A and Z to reflect 
FACEXP but a LDA $9D will insure the proper values. 

FLOATING POINT CONSTANTS 


NOTE: The following addresses point to numbers in packed form 
suitable for use by CONUPK and MOVMF. 


RND 

00C9 

(201) 

1/4 

F070 

(61552) 

1/2 

EE64 

(61028) 

-1/2 

E937 

(59703) 

1 

E913 

(59667) 

10 

EA50 

(59984) 

SQR(.5) 

E92D 

(59693) 

SQR(2) 

E932 

(59698) 

LN(2) 

E93C 

(59708) 

LOG(e)2 

EEDB 

(61147) 

PI/2 

F063 

(61539) 

PI *2 

F06B 

(61547) 

-32768 

E0FE 

(57598) 

1000000000 

ED14[1E9] 

(60692(489]) 
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SUMMARY OF MOVES: 


SGN EB90 (60304) 

Calls SIGN and floats the result in the FAC. 

On exit: 

FAC=1 If FAC was greater than 0 
FAC=0 If FAC was equal to 0 
FAC=-1 If FAC was less than 0 


ABS 

EBAF 

(60335) 

Absolute value of FAC 

INT 

EC23 

(60451) 


FAC 

=> (Y,A) 

EB2B 


FAC 

=> (0,X) 

EB23 


FAC 

=> TEMP 1 

EB21 


FAC 

-> TEMP 2 

EB1E 


FAC 

=> ARG 

EB63 


(Y,A) 

=> FAC 

EAF9 


(Y,A) 

=> ARG 

EB63 


ARG 

=> FAC 

EB53 



FLOATING POINT UTILITIES 


SIGN 


EB82 

(60290) 


Greatest integer value of FAC. Uses QINT and floats the result. 


SQR 

EE8D 

(61069) 

Take the square root of FAC 


LOG 

E941 

(59713) 

Log base e of FAC 
EXP 

EF09 

(61193) 

Raise e to the FAC power 
RND 

EFAE 

(61358) 

Form a ‘random’ number in FAC 


COS 

EFEA 

(61418) 

COS (FAC) 



SIN 

SIN(FAC) 

EFF1 

(61425) 

TAN 

TAN (FAC) 

F03A 

(61498) 

ATN 

F09E 

(61598) 


ARCTAN(FAC) 

FLOATING POINT NUMBER MOVE ROUTINES 

MOVFM EAF9 (60153) 

Move memory pointed to by Y,A, into FAC. On exit A and Z 
reflect FACEXP. 

MOV2F EB1E (60190) 

Pack FAC and move it into temporary register 2. Uses MOVMF. 
On exit A and Z reflect FACEXP. 

MOV1F EB21 (60193) 

Pack FAC and move it into temporary register 1. Uses MOVMF. 
On exit A and Z reflect FACEXP. 

MOVML EB23 (60195) 

Pack FAC and move it into zero page area pointed to by X. Uses 
MOVMF. On exit A and Z reflect FACEXP. 

MOVMF EB2B (60203) 

Pack FAC and move it into memory pointed to by Y,X. On exit 
A and Z reflect FACEXP. 

MOVFA EB53 (60243) 

Move ARG into FAC. On exit A=FACEXP and Z is set. 

MOVAF EB63 (60259) 

Move FAC into ARG. On exit A=FACEXP and Z is set. 

CONUPK E9E3 (59875) 

Load ARG from memory pointed to by Y,A. On exit A and Z 
reflect FACEXP. 


Set A according to the value of FAC. 

On exit: 

A=1 if FAC is positive. 

A=0 if FAC=0 

A=FF if FAC is negative 

FOUT ED34 (60724) 

Creates a string in FBUFFR equivalent to the value of FAC. On 
exit Y,A points to the string. The string ends in a zero. FAC is 
scrambled. Use STROUT to then print the number. 

FCOMP EBB2 (60338) 

Compare FAC and a packed number in memory pointed to by 
Y,A. 


On exit: 


A=1 

A=0 

A=FF 

if (Y,A) < FAC 
if (Y,A) = FAC 
if (Y,A) > FAC 



NEGOP 


EEDO 

(61136) 

FAC= -FAC 



FADDH 


E7A0 

(59296) 

Add 1/2 to FAC 



DIVIO 


EA55 

(59989) 

Divide FAC by 10. Returns positive numbers only. 


MUL10 


EA39 

(59961) 


Multiply FAC by 10. Works for both positive and negative num- 
bers. 


INTEGER TO FAC 

SNGFLT E301 (58113) 

Float the unsigned integer in Y. 

GIVAYF E2F2 (58098) 

Float the signed integer in A,Y. 

FLOAT EB93 (60307) 

Float the signed integer in A. 

FAC TO INTEGER 

CONINT E6FB (59131) 

Convert FAC into a single byte number in X and FACLO. Nor- 
mally exits through CHRGET. If FAC is greater than 255 or less 
than 0 then CONINT exits via ILLEGAL QUANTITY ERROR. 

AYINT E10C (57612) 

If FAC is less than +32767 and greater than -32767 then perform 
QINT. 

QINT EBF2 (60402) 

Quick greatest integer function. Leaves INT(FAC) in FACHO, 
MO, LO signed. QINT assumes FAC < 2 to the 23rd (8388608 
decimal) 
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GETADR E752 (59218) 

Convert the number in FAC (-65535 to 65535) into a 2 byte 
integer (0-65535) in LINNUM. 

GETNUM E746 (59206) 

Read a 2 byte number into LINNUM from TXTPTR, check for 
a comma, and get a single byte number in X. On entry TXTPTR 
points to the first character of the formula for the first number. 
Uses FRNUM, GETADR, CHKCOM, GETBYT. 

COMBYTE E74C (59212) 

Check for a comma and get a byte in X. Uses CHKCOM, 
BETBYT. On entry TXTPTR points to the comma. 

TXTPTR TO FAC 

FRMEVL DD7B (56699) 

Evaluate the formula at TXTPTR using CHRGET and leave the 
result in FAC. On entry TXTPTR points to the first character of 
the formula. This is the main subroutine for the commands that 
use formulas and works for both strings and numbers. If the for- 
mula is a string literal, FRMEVL gobbles the opening quote and 
executes STRLIT and ST2TXT. 

FRMNUM DD67 (56679) 

Evaluate the formula at TXTPTR, put it in FAC, and make sure 
it’s a number. On entry TXTPTR points to the first character of 
the formula. TYPE MISMATCH ERROR results if the formula is 
a string. 

FIN EC4A (60490) 

Input a floating point number into FAC from CHRGET. FIN 
assumes that the 6502 registers and A have been set up by the 
CHRGET that fetched the first digit. 

STRING UTILITIES 

In Applesoft strings have three parts: the descriptor, a pointer to 
the descriptor, and the ASCII string. A string descriptor contains 
the length of the string and the address of its first character. See 
page 137 of the Applesoft Reference Manual. Through most of 
the routines the descriptor is left in memory and a pointer is 
kept in FAC. The pointer is the address of the descriptor. The 
actual string could be anywhere in memory. In a program, 1 A$= 
“HI” will leave a descriptor pointing into the program text. 

CAT E597 (58775) 

Concatenate two strings. FACMO,LO point to the first string's 
descriptor and TXTPTR points to the *+* sign. 

STRINI E3D5 (58325) 

Get space for creation of a string and create a descriptor for it 
in DSCTMP. On entry A=length of the string. 

STRSPA E3DD (58333) 

JSR to GETSPA and store the pointer and length in DSCTMP. 

COPY DAB7 (55991) 

Free the string temporary pointed to by Y,A and move it to the 
memory pointed to by FORPNT. 

MOVINS E5D4 (58836) 

Move a string whose descriptor is pointed to by STRNG1 to 
memory pointed to by FRESPA. 

MOVSTR E5E2 (58850) 

Move the string pointed to by Y,X with a length of A to memory 
pointed to by FRESPA. 

STRTXT DE81 (56961) 

Sets Y,A equal to TXTPTR plus C and falls into STRLIT. 


STRLIT E3E7 (58343) 

Store a quote in ENDCHR and CHARAC so that STRLT2 will 
stop on it. 

STRLT2 E3ED (58349) 

Take a string literal whose first character is pointed to by Y,A 
and build a descriptor for it. The descriptor is built in DSCTMP, 
but PUTNEW transfers it into a temporary and leaves a pointer 
to it in FACMO,LO. Characters other than zero that terminate 
the string should be saved in CHARAC and ENDCHR. Leading 
quotes should be skipped before STRLT2. On exit the character 
after the string literal is pointed to by STRNG2. Falls into 
PUTNEW. 

PUTNEW E42A (58410) 

Some string function is returning with a result in DSCTMP. Move 
DSCTMP to a temporary descriptor, put a pointer to the descrip- 
tor in FACMO,LO, and flag the result as a string. 

GETSPA E452 (58450) 

Get space for character string. May force garbage collection. 
Moves FRESPC and FRETOP down enough to store the string. 
On entry A= number of characters. Returns with A unaffected 
and pointer to the space in Y,X, FRESPC, and FRETOP. If 
there’s no space then OUT OF MEMORY error. 

FRESTR E5FD (58877) 

Make sure that the last FAC result was a string and fall into 
FREFAC. 

FRETMP E604 (58884) 

Free up a temporary string. On entry the pointer to the descrip- 
tor is in Y,A. A check is made to see if the descriptor is a tempor- 
ary one allocated by PUTNEW. If so, the temporary is freed up 
by updating TEMPPT. If a temp is freed up a further check is 
made to see if the string is the lowest in memory. If so, that area 
of memory is freed up also by updating FRETOP. On exit the 
address of the string is in INDEX and Y,X and the string length 
is in A. 

FRETMS E635 (58933) 

Free the temporary descriptor without freeing up the string. On 
entry Y,A point to the descriptor to be freed. On exit Z is set if 
anything was freed. 


DEVICE INPUT ROUTINES 


INLIN D52C (54572) (No prompt) 

INLIN+2 D52E (54574) (Use character in X for prompt) 

Input a line of text from the current input device into the input 
buffer, BUF, and fall into GDBUFS. 

GDBUFS D539 (54585) 

Puts a zero at the end of the input buffer, BUF, and masks off 
the msb on all bytes. 

On entry: 

X= the end of the input line 

On exit: 

A=0 

X=FF 

Y=1 

INCHR D553 (54611) 

Get one character from the current input device in A and mask 
off the msb. INCHR uses the main Apple input routines and sup- 
ports normal handshaking. 
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DEVICE OUTPUT ROUTINES 


STROUT DB3A (56122) 

Print string pointed to by Y,A. The string must end with a zero 
or a quote. 

STRPRT DB3D (56125) 

Print a string whose descriptor is pointed to by FACMO, FACLO. 

OUTDO DB5C (56156) 

Print the character in A. INVERSE, FLASH, and NORMAL in 
effect. 

CRDO DAFB (56059) 

Print a carriage return. 

OUTSPC DB57 (56151) 

Print a space. 

OUTQST DB5A (56154) 

Print a question mark. 

INPRT EDI 9 (60697) 

Print “IN” and the current line number from CURLIN. Uses 
LINPRT. 

LINPRT ED24 (60708) 

Prints the 2 byte unsigned number in X,A. 

PRNTFAC ED2E (60718) 

Prints the current value of FAC. FAC is destroyed. Uses FOUT 
and STROUT. 

INTERNAL LOCATOR ROUTINES 

PTRGET DFE3 (57315) 


Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to the first character of the variable name. 
On exit the address to the value of the variable is in VARPNT and 
Y,A. If PTRGET can’t find a simple variable it creates one. If it 
can’t find an array it creates one dimensioned to 0 to 10 and set 
all elements equal to zero. 

GETARYPT F7D9 (63449) 

Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to the first character of the variable name. 
This routine leaves LOWTR pointing to the name of the variable 
array. If the array can’t be found the result is an OUT OF DATA 
ERROR. 

FNDLIN D61 A (54810) 

Searches the program for the line whose number is in LINNUM. 
On exit: 

1 . If C set LOWTR points to the link field of the desired line. 

2. If C clear then line not found. LOWTR to the next higher 
line. 

DATA D995 (55701) 

Move TXTPTR to the end of the statement. Looks for or eol 

( 0 ). 

DATAN D9A3 (5571 5)j 

Calculate the offset in Y from TXTPTR to the next V or eol (0). 
REMN D9A6 (55718) 

Calculate the offset in Y from TXTPTR to the next col (0). 
ADDON D998 (55704) 

Add Y to TXTPTR. 


INITIALIZATION ROUTINES 

SCRTCH D64B (54859) 

The ‘NEW’ command. Clears the program, variables, and stack. 
CLEARC D66C (54892) 

The ‘CLEAR’ command. Clears the variables and stack. 

STKINI D683 (54915) 

Clears the stack. 

RESTOR D849 (55369) 

Sets the DATA pointer, DATPTR, to the bebinning of the 
program. 

STXTPT D697 (54935) 

Set TXTPTR to the beginning of the program. 

STORAGE MANAGEMENT ROUTINES 

BLTU D393 (54163) 


Block transfer makes room by moving everything forward. 

On entry: 

Y,A and HIGHDS=destination of high address + 1 
LOWTR=lowest address to be moved 
HIGHTR=highest address to be moved + 1 
On exit: 

LOWTR is unchanged 
HIGHTR=LOWTR — $100 
HIGHDS=lowest address transferred — $100 

REASON D3E3 (54243) 

Makes sure there’s enough room in memory, Checks to be sure 
that the address Y,A is less than FRETOP. May cause garbage 
collection. Causes OMERR if there’s no room. 

GARBAG E484 (58500) 

Move all currently used strings up in memory as far as possible. 
This maximizes the free memory area for more strings or numeric 
variables. 

MISCELLANEOUS BASIC COMMANDS 

Note that many commands are not documented because they 
jump into the new statement fetcher and cannot be used as a sub- 
routine. 

CONT D898 (55448) 

Moves OLDTXT and OLDLIN into TXTPTR and CURLIN. 

NEWSTT D7D2 (55250) 

Execute a new statement. On entry TXTPTR points to the V 
preceding the statement or the zero at the end of the previous 
line. Use NEWSTT to restart the program with CONT. THIS 
ROUTINE DOES NOT RETURN. 

RUN D566 (54630) 

Run the program in memory. THIS ROUTINE DOES NOT 
RETURN. 

GOTO D93E (55614) 

Uses LINGET and FNDLIN to update TXTPTR. GOTO assumes 

that the 6502 registers and A have been set up by the CHRGET 
that fetched the first digit. 

LET DA46 (55878) 

Uses CHRGET to get address of the variable, evaluate the 
formula, and store it. On entry TXTPTR points to the first char- 
acter of the variable name. 
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HIRES GRAPHICS ROUTINES 

NOTE: Regardless of which screen is being displayed, HPAG (lo- 
cation $E6) determines which screen is drawn on. ($20 for HGR, 


$40 for HGR2) 

HGR2 F3D4 (62420) 

Initialize and clear page 2 HIRES. 

HGR F3DE (62430) 

Initialize and clear page 1 HIRES. 

HCLR F3EE (62446) 

Clear the HIRES screen to black. 

BKGND F3F2 (62450) 

Clear the HIRES screen to last plotted color. 

HPOSN F40D (62477) 


Positions the HIRES cursor without plotting, HPAG determines 
which page the cursor is pointed at. 

On entry: 

Horizontal=Y,X 

Vertical=A 

HP LOT F453 (62547) 

Call HPOSN then try to plot a dot at the cursor’s position. No 
dot may be plotted if plotting non-white at a complementary 
color X coordinate. 

HLIN F530 (62768) 

Draws a line from the last plotted point or line destination to the 
coordinate in the 6502 registers. 

On entry: 

Horizontal =X,A 
Vertical=Y 

HFIND F5CB (62923) 

Convert the HIRES cursor’s position to X-Y coordinates. Used 

after SHAPE to find where you’ve been left. 

On exit: 

$E0=horizontal Isb 
$E1=horizontal msb 
$E2=vertical 


DRAW F601 (62977) 

Draw the shape pointed to by Y,X by inverting the existing color 
of the dots the shape draws over. On entry A=rotation factor. 

SETHCOL F6EC (63213) 

Set the HIRES color to X. X must be less than 8. 

SHLOAD F775 (63349) 

Loads a shape table into memory from tape above MEMSIZ 
(HIMEM) and sets up the pointer at $E8. 

CASSETTE ROUTINES 

SAVE D8B0 (55472) 

Save the program in memory to tape. 

LOAD D8C9 (55497) 

Load a program from tape.. 

VARTIO D8F0 (55536) 

Set up A1 and A2 to save 3 bytes ($50 -$52) for the length. 
PROGIO D901 (55553) 

Set up A1 and A2 to save the program text. 


ERROR PROCESSOR ROUTINES 

ERROR D41 2 (54290) 

Checks ERRFLG and jumps to HNDLERR if ONERR is active. 
Otherwise it prints <or> ?’ <error message &X> ‘ERROR’. If 
this is during program execution then it also prints ‘IN’ and the 
CURLIN. 

HANDLERR F2E9 (62185) 

Saves CURLIN in ERRLIN, TXTPTR in ERRPOS, X in ERR- 
NUM, and REMSTK in ERRSTK. REMSTK is equal to the 6502 
stack pointer and is set up at the start of each statement. X con- 
tains the error code. This may be used to interrupt the execution 
of a BASIC program. See the Applesoft Reference Manual page 


1 36 for the value of X for a given error. 

RESUME F31 7 (62231) 

Restores CURLIN from ERRLIN and TXTPTR from ERRPOS 
and transfers ERRSTK into the 6502 stack pointer. 

SYNTAX CHECKING ROUTINES 

ISCNTC D858 (55384) 

Checks the Apple keyboard for a control — C ($83). Executes 
the BREAK routine if there is a control — C. 

CHKNUM DD6A (55682) 

Make sure FAC is numeric. See CHKVAL. 

CHKSTR DD6C (56684) 

Make sure FAC is a string. See CHKVAL. 

CHKVAL DD6D (56685) 


Checks the result of the most recent FAC operation to see if it 
is a string or numeric variable. A TYPE MISMATCH ERROR 
results if FAC and C don’t agree. 

On entry: 

C set checks for strings 
C clear checks for numerics 

ERRDIR E306 (58118) 

Causes ILLEGAL DIRECT ERROR if the program isn’t running. 
X is modified. 

ISLETC E07D (57469) 

Checks A for an ASCII letter (‘A’ to ‘Z’). On exit C set if A is a 

letter. 

PARCHK DEB2 (57010) 

Checks for ‘(’, evaluates a formula, and checks for ')’. Uses 

CHKOPN and FRMEVL then falls into CHKCLS. 

CHKCLS DEB8 (57016) 

Checks at TXTPTR for ’)’. Uses SYNCHR. 

CHKOPN DEBB (57019) 

Checks at TXTPTR for ‘(’, Uses SYNCHR. 

CHKCOM DEBE (50722) 

Checks at TXTPTR for *,’• Uses SYNCHR. 

SYNCHR DECO (57024) 

Checks at TXTPTR for the character in A. TXTPTR is not 
modified. Normally exits through CHRGET. Exits with SYNTAX 
ERROR if they don’t match. 

XDRAW F65D (62977) 

Draw the shape pointed to by Y, X by inverting the existing color 

of the dots the shape draws over. On entry, A=rotation factor. 



PAGE 18 
A1 

-A- 

3C,3D 

12 

A2 

3E,3F 

12 

ABS 

EBAF 

14 

ADDON 

D998 

16 

ARYTAB 

6B,6C 

12 

ATN 

F09E 

14 

AYINT 

E10C 

14 

BKGND 

-B- 

F3F2 

17 

BLTU 

D393 

16 

BUF 

200-2FF 

12 

CAT 

-C- 

E597 

15 

CHARAC 

OD 

12 

CHKCLS 

DEB8 

17 

CHKCOM 

DEBE 

17 

CHKNUM 

DD6A 

17 

CHKOPN 

DEBB 

17 

CHKSTR 

DD6C 

17 

CHKVAL 

DD6D 

17 

CHRGET 

00B1 

13 

CHRGOT 

00B7 

13 

CLEARC 

D66C 

16 

COMBYTE 

E74C 

15 

CONI NT 

E6FB 

14 

CONT 

D898 

16 

CONUPK 

E9E3 

14 

COPY 

DAB7 

15 

COS 

EFEA 

14 

CRDO 

DAFB 

16 

CURLIN 

75,76 

12 

DATA 

— D— 

D995 

16 

DATAN 

D9A3 

16 

DATLIN 

7B,7C 

12 

DATPTR 

7D,7E 

12 

DIVIO 

EA55 

14 

DRAW 

F601 

17 

DSCTMP 

9D-9F 

12 

ENDCHR 

— E— 
OE 

12 

ERRDIR 

E306 

17 

ERRFLG 

D8 

12 

ERRLIN 

DA,DB 

12 

ERRNUM 

DE 

12 

ERROR 

D412 

17 

ERRPOS 

DC,DD 

12 

ERRSTK 

DF 

12 

EXP 

ER09 

14 


FADD 

-F- 

E7BE 

13 

FADDH 

E7A0 

14 

FBUFFR 

100-1 FF 

12 

FCOMP 

EBB2 

14 

FDIV 

EA66 

13 

FIN 

EC4A 

15 

FIRST 

FO 

12 

FLOAT 

EB93 

14 

FMULT 

E97F 

13 

FNDLIN 

D61 A 

16 

FORPNT 

85,86 

12 

FOUT 

ED34 

14 

FPWRT 

EE97 

13 
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FREFAC 

E600 

15 

FRESPC 

71,72 

12 

FRESTR 

E5FD 

15 

FRETMP 

E604 

15 

FRETOP 

6F,70 

12 

REMEVL 

DD7B 

15 

FRMNUM 

DD67 

15 

FSUB 

E7A7 

13 


-G— 


GARBAG 

E484 

16 

GDBUFS 

D539 

15 

GETADR 

E752 

15 

GETARYPT 

F7D9 

16 

GTBYTC 

E6F5 

13 

GETBYT 

E6F8 

13 

GETNUM 

E746 

15 

GETSPA 

E452 

15 

GIVAYF 

E2F2 

14 

GOTO 

D93E 

16 


H2 

-H- 

2C 

12 

HANDLERR 

F2E9 

17 

HCLR 

F3EE 

17 

HFIND 

F5CB 

17 

HFNS 

F6B9 

13 

HGR 

F3DE 

17 

HGR2 

F3D4 

17 

HIGHDS 

94,95 

12 

HIGHTR 

96,97 

12 

HLIN 

F530 

17 

HPAG 

E6 

12 

HP LOT 

F453 

17 

HPOSN 

F40D 

17 

INDEX 

-1- 

5E,5F 

12 

INCHR 

D553 

15 

INLIN 

D52C 

15 

INLIN+2 

D52E 

15 

INPRT 

ED19 

16 

INT 

EC 23 

14 

INVFLG 

32 

12 

ISCNTC 

D858 

17 

ISLETC 

E07D 

17 


LASTPT 

-L- 

53 

12 

LET 

DA46 

16 

LINGET 

DAOC 

13 

LINNUM 

50,51 

12 

LINPRT 

ED24 

16 

LOAD 

D8C9 

17 

LOG 

E941 

14 

LOWTR 

9B,9C 

12 

MEMSIZ 

— M— 

73,74 

12 

MOV1F 

EB21 

14 

MOV2F 

EB1E 

14 

MOVAF 

EB63 

14 

MOVFA 

EB53 

14 

MOVFM 

EAF9 

14 

MOVINS 

E5D4 

15 

MOVMF 

EB2B 

14 

MOVML 

EB23 

14 

MOVSTR 

E5E2 

15 

MUL10 

EA39 

14 
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NEGOP 

-N- 

EEDO 

14 

NEWSTT 

D7D2 

16 

OLDLIN 

-O- 

77,78 

12 

ORMASK 

F3 

12 

OUTDO 

DB5C 

16 

OUTQST 

DB5A 

16 

OUTSPC 

DB57 

16 

PARCHK 

-P— 

DEB2 

17 

PLOTFNS 

FI EC 

13 

PRGEND 

AF,BO 

12 

PROGIO 

D901 

17 

PRTFAC 

ED2E 

16 

PTRGET 

DFE3 

16 

PUTNEW 

E42A 

15 

QINT 

-Q- 

EBF2 

14 

REASON 

-R- 

D3E3 

16 

REMN 

D9A6 

16 

REMSTK 

F8 

12 

RESTOR 

D849 

16 

RESUME 

F31 7 

17 

RND 

EFAE 

14 

RUN 

D566 

16 

SAVE 

-S- 

D8BO 

17 

SCRTCH 

D64B 

16 

SETHCOL 

F6EC 

17 

SGN 

EB80 

14 

SHLOAD 

F775 

17 

SIGN 

EB82 

14 

SIN 

EFF1 

14 

SNGFLT 

E301 

14 

SPDBYT 

FI 

12 

SQR 

EE8D 

14 

STKINI 

D683 

16 

STREND 

6D,6E 

12 

STRINI 

E3D5 

15 

STRLIT 

E3E7 

15 

STRLT2 

E3ED 

15 

STRNG1 

AB,AC 

12 

STRNG2 

AD,AE 

12 

STROUT 

DB3A 

16 

STRPRT 

DB3D 

16 

STRSPA 

E3DD 

15 

STRTXT 

DE81 

15 

STXTPT 

D697 

16 

SUBFLG 

14 

12 

SYNCHR 

DECO 

17 

TAN 

-T- 

F03A 

14 

TEMPPT 

52 

12 

TXTTAB 

67,68 

12 

V2 

-V- 

2D 

13 

VALTYP 

11 

13 

VARPNT 

83,84 

13 

VARTAB 

69, 6A 

13 

VARTIO 

D8FO 

17 

XDRAW 

-X- 

F65D 

17 




COMPUTERIZE YOUR HOME. 

The lntrol/X-10 peripheral system for your Apple* 
Computer allows you to remotely control lights and 
electrical appliances in your home. 

YOU’RE ALREADY WIRED. 

lntrol/X-10 operates by utilizing your computer’s intelli- 
gence to command the BSR System X-10 to send signals 
over regular 110 volt household wiring. That means you 
can control any electrical device in your home without 
additional wiring. 

READY TO USE. 

lntrol/X-10 comes with complete software to control 
devices on pre-determined schedules, and features: 

• Control devices at a specific time. • Select a daily or 
weekly schedule. • Specify a day of the week, or an exact 
date for a particular event. • Specify an interval of time for 
an event. • Rate device wattages for a running account 
of power consumption during your schedule for energy 
management. • Used with our Apple Clock™ your sched- 
ules may run in “background” while other programs 
may run at the same time in “foreground.” 


EVERYTHING YOU NEED. 

The Introl Controller board plugs into a peripheral slot 
of your Apple. With an ultrasonic transducer it trans- 
mits control signals to the BSR/X-10 Command Console 
which may be plugged into any convenient AC outlet near 
your computer. On command, signals are sent to remote 
modules located at the devices you wish to control. Up 
to 16 remote module addresses may be controlled from 
your Apple. Software requires Applesoft firmware. 

AVAILABLE NOW. 

The lntrol/X-10 System consists of the Introl Controller 
board with timer and ultrasonic transducer, the X-10 
Command Console and three remote modules. $279. 
Complete and tested. If you already have a BSR System 
X-10, the Introl Controller board is available separately for 
$189. Additional remote modules are available at $15. See 
your computer dealer for a demonstration. Or, return the 
coupon below for complete information. 

Available through computer dealers worldwide 

‘Apple is a trademark of Apple Computer Inc. 

BSR/System X-10 is a trademark of BSR, Ltd. 





Mountain Hardware, Inc. 

LEADERSHIP IN COMPUTER PERIPHERALS 

300 Harvey West Blvd., Santa Cruz, CA 95060 
(408) 429-8600 

Sounds great. 

□ Home control from my Apple? 

That sounds like a great system. Send me all the details. 

Name 


Address. 

City 

Phone 


. State, 


- Zip - 



NEW FROM 

MOUNTAIN HARDWARE. 
THE APPLE CLOCK. 

t N — 



NEW UTILITY FOR 
YOUR COMPUTER. 

Until now, there hasn’t 
been a Real-Time Clock 
for the Apple II*. The 
Apple Clock from Moun- 
tain Hardware keeps time 
and date in 1 mS increments 
for over one year. On-board 
battery backup keeps the clock 
running in the event of power 
outage. Software controlled interrupts are 
generated by the clock. That means you can 
call up schedules, time events, date printouts 
. . .all in real time on a programmed schedule. 
EASY TO USE. 

The Apple Clock is easily accessed from 
BASIC using routines carried in on-board 
ROM. With it, you can read time and 
program time-dependent functions for 
virtually any interval. From milliseconds to 
days, months or a year. 

PLUG IN AND GO. 

Plug the Apple Clock into a peripheral slot 
on your Apple II and you’re ready to go. 


FEATURES. 

• Time and date in ImS 
increments for periods 
as long as one year. 

• Software for calendar 
and clock routines, as 
well as an event timer 
are contained on on- 
board ROM. 

• Program interrupts. 

Crystal controlled accuracy 
of ±.001%. 

• On-board battery backup keeps your clock 
in operation even during power outage. 

REAL TIME AT THE RIGHT PRICE. 

At $199 assembled and tested, it’s the clock 
your Apple has been waiting for. And, it’s 
available now through your Apple dealer. 
Drop in for a demonstration. Or return the 
coupon below. 

A COMPLETE LINE. 

Mountain Hardware also offers a complete 
line of peripheral products for many fine 
computers. 



Send me everything I’ll need to know about the Apple Clock. 

I’ve got a computer. Send me information. 

Name 


City State Zip 

* Apple II is a trademark of Apple Computer, Inc. j 

i 


Mountain Hardware, Inc. 

300 Harvey West Blvd., Santa Cruz, CA 95060 
(408) 429-8600 

Sounds great. 
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This program solves the problem of finding a place in memory 
for machine language programs in Applesoft. Until now, programs 
were usually written to reside above HIMEM:, which has its draw- 
backs: a program written for a 48K machine would not run on 
32K. Some programs, like RENUM/MERGE on the DOS 3.2 
master disk, relocate themselves to accommodate different size 
systems, but this is often more work and hassle than the program 
is worth. 

&LOMEM: solves this problem in a unique way: it actually 
moves the Applesoft program upward in memory, freeing up the 
memory left behind. Do not confuse &LOMEM: (pronounced 
Ampersand LOMEM) with the Applesoft LOMEM: statement — 
Applesoft LOMEM: affects only the location of Applesoft vari- 
ables, whereas & LOMEM: affects the location of the variables 
AND program. 

To use the &LOMEM: utility, you must first BRUN LOMEM: 
to initialize the Ampersand jump vector and load it into memory. 
The syntax for the &LOMEM : statement is as follows: 

&LOMEM : [addr] , where [addr] is the new start of program 
address in decimal. 

&LOMEM: can be used within programs or in immediate 
mode. The program does an implicit “CLEAR”, which wipes out 
all variables. The memory freed up by &LOMEM: will always 
start at $800 hex (the normal start of program address). So, a 
program line to reserve 2K of memory for a machine language 
program assembled to run at $800 hex, would look something 
like this: 

10 PRINT CHR$(4) "BRUN LOMEM :":&LOMEM: 
4096 

Since the freed up memory space is the same as that freed up 
with the LOMEM: statement in Integer Basic, many machine 
language programs originally written for Integer Basic can now be 
easily adapted for use with Applesoft. 

There are a few things that should be kept in mind when using 
this program. First of all, this program will NOT work with RAM 
Applesoft, since it calls routines within Applesoft itself. Amper- 
sand LOMEM: can only move programs UPWARD in memory; 
attempting to move the program back to its original location or 
to a lower address will DESTROY your program. The action of 
Ampersand LOMEM: statement is permanent; “NEW”, 

“CLEAR”, and “LOMEM” have no effect on the start of program 
address. The start address of another program loaded after the 
execution of a &LOMEM : statement will also be the value set by 
& LOMEM:. Use the DOS FP command to reset the program 
address to its normal $800. 

This program was originally written for Ron and Darrell 
Aldrich’s Hi-Res Text Generator to allow its use in ROM Apple- 
soft systems of any RAM size. The program as presented here is 
identical to the program included on the Hi-Res Text Generator 
disk, from Apple Pugetsound Program Library Exchange. The 
Ampersand LOMEM: resides at $330 hex, and uses approxi- 
mately 160 bytes. (This is because the Hi-Res Text Generator 
uses other locations in the $300 page.) 


#330 ♦ 
0330- 

3CF 

A9 

4C 

8D 

F5 

03 

A9 

40 

8D 

0338- 

F6 

03 

A9 

03 

8B 

F7 

03 

60 

0340- 

A9 

A4 

20 

CO 

BE 

20 

67 

DD 

0348- 

20 

52 

E7 

A5 

67 

85 

96 

A5 

0350- 

B0 

85 

97 

Co 

96 

38 

A 5 

50 

0358- 

85 

94 

E5 

67 

85 

50 

A5 

51 

0360- 

85 

95 

E5 

68 

85 

51 

A5 

AF 

0368- 

E5 

67 

AS 

AS 

B0 

E5 

68 

AA 

0370- 

18 

65 

95 

85 

95 

C3 

DO 

01 

0378- 

E8 

E8 

C8 

20 

C3 

D3 

A2 

69 

0380- 

20 

Cl 

03 

A2 

AF 

20 

Cl 

03 

0388- 

A2 

67 

20 

Cl 

03 

A2 

79 

20 

0390- 

Cl 

03 

A5 

B9 

C9 

02 

F0 

05 

0398- 

A2 

B8 

20 

Cl 

03 

A5 

67 

A4 

03AO- 

68 

85 

5E 

84 

5F 

A0 

00 

38 

03A8- 

B1 

5E 

65 

50 

91 

5E 

AA 

C8 

03B0- 

B1 

5E 

F0 

0A 

65 

51 

91 

5E 

03B8- 

86 

5E 

85 

5F 

90 

E7 

4C 

6C 

03C0- 

£>6 

38 

B5 

00 

65 

50 

95 

00 

03C8- 

B5 

01 

65 

51 

95 

01 

60 

FF 


5 

# 



6 

* & LOMEM 

: x 


7 

* 



8 

* BY NEIL 

KONZEN 

9 

* 



10 


ORG 

$330 

11 


OBJ 

$330 

12 

* 



13 

* EQUATES 



14 

* 



15 

LOMEM 

EGU 

$50 

16 

RNMPTR 

EQU 

$5E 

17 

PRGBEG 

EQU 

$67 

18 

VARTAB 

EQU 

$69 

19 

FRETOP 

EQU 

$73 

20 

0LDTXT 

EQU 

$79 

21 

DATXT 

EQU 

$7D 

22 

HIGHDS 

EQU 

$94 

23 

HIGHTR 

EQU 

$96 

24 

PRGEND 

EQU 

$AF 

25 

TXTPTR 

EQU 

$B8 

26 

AMPRSND 

EQU 

$3F5 

27 

* 



28 

# 




&LOMEM:’s potential uses are unlimited. Dig in and let us 
know the unique applications you turn up! 
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29 * 

30 CHRGET 

EGU 

$00B1 







31 BLT2 

EGU 

«D3C3 

fPART OF 

FP BLOCK TRANSFER 





32 CLEAR 

EGU 

$D66C 

i' CLEAR 7 

STMT ENTRY 





33 FRMEVL 

EGU 

SDD67 

J EVALUATE A FORMULA 





34 SYNCHK 

EGU 

+DEC0 

r COMPARE 

A W/< TXTPTR ) 





35 SNERR 

EGU 

$BEC9 







36 FRMNUM 

37 * 

EGU 

$E752 



0 330 : 

A9 

4C 


38 

LBA 

♦$4C 

?SET UP i 

AMPERSAND VECTOR 

©332 J 

8D 

F5 

03 

39 

STA 

AMPRSND 



0335: 

A9 

40 


40 

LBA 

♦<lomem: 



0337: 

8D 

F6 

03 

41 

STA 

AMPRSND+1 



033A: 

A9 

03 


42 

LBA 

♦>lomem: 



©33C: 

8D 

F7 

03 

43 

STA 

AMPRSND+2 



033F: 

60 



44 

RTS 




0340: 

A 9 

A 4 


45 lomem: 

LBA 

t$A4 

9 ' lomem: 

' TOKEN? 

0342: 

20 

CO 

BE 

46 

JSR 

SYNCHK 

JSYNTAX i 

CHECKING HERE 

03451 

20 

67 

DU 

47 

JSR 

FRHEVL 

JOK* SO 

GET VALUE 

0348: 

20 

52 

E7 

48 

49 * 

50 * 

JSR 

FRMNUM 



0348: 

A5 

67 


51 

LBA 

PRGBEG 



0348; 

35 

96 


52 

STA 

HIGHTR 



034F; 

A5 

BO 


53 

LBA 

PRGEND+1 

JFP MOVE 

ROUTINE USED 

0351 ; 

35 

97 


54 

STA 

HIGHTR+1 

9 IN A VERY BIZZARE WAY! 

0353; 

C6 

96 


55 

DEC 

HIGHTR 







56 * 





0355; 

38 



57 

SEC 




0356: 

A5 

50 


58 

LBA 

LOMEM 



0353 : 

85 

94 


59 

STA 

HIGHDS 



035A: 

E5 

67 


60 

SBC 

PRGBEG 



035C: 

35 

50 


61 

STA 

LOMEM 



035E: 

A5 

51 


62 

L.BA 

LOMEM+t 



0360 : 

85 

95 


63 

STA 

HIGHDS+1 



0362; 

E5 

68 


64 

SBC 

PRGBEG+1 



0364; 

85 

51 


65 

66 * 

STA 

LOMEM+1 



0366: 

A5 

AF 


67 

LBA 

PRGEND 



0368; 

E5 

67 


68 

SBC 

PRGBEG 



036A: 

AS 



69 

TAY 




036b: 

A5 

BO 


70 

LBA 

PRGEND+1 



036It: 

E5 

68 


71 

SBC 

PRGBEG+1 



036F: 

AA 



72 

TAX 




0370 : 

18 



73 

CLC 




0371; 

65 

95 


74 

ADC 

HIGHDS+1 



0373; 

85 

95 


75 

STA 

HIGHDS+1 



0375: 

CB 



76 

INY 


i STRANGE 

MATH HERE BECAUSE 

0376: 

BO 

01 


77 

BNE 

*+3 

»WE HAVE 

TO MOVE ( PRGBEG)-! 

0378; 

E8 



78 

INX 


JAND 'BLT2' IS CALLED FUNNY 

0379: 

E8 



79 

I NX 




037A: 

C8 



80 

INY 




037b; 

20 

C3 

B3 

81 

82 * 

JSR 

BLT2 



037E; 

A2 

69 


83 SKP5 

LDX 

♦VARTAB 

»NOW GO 

UPDATE THESE PTRS 

0380 : 

20 

Cl 

03 

84 

85 # 

JSR 

ABB 



0383: 

A2 

AF 


86 

LDX 

♦PRGEND 



0385: 

20 

Cl 

03 

87 

88 * 

JSR 

ABB 
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0388 J 

A2 

67 


89 


LDX 

♦PRGBEG 

038AI 

20 

Cl 

03 

90 


JSR 

ADD 





91 

# 



038Et: 

A2 

79 


92 


LDX 

♦OLDTXT 

038FJ 

20 

Cl 

03 

93 


JSR 

ADD 





94 

* 



0 392: 

A5 

B9 


95 


LDA 

TXTF'TR+1 

0394J 

C9 

02 


96 


CMP 

#$02 

0396: 

FO 

05 


97 


BEQ 

DONT 

0398 i 

A2 

B8 


98 


LDX 

♦TXTPTR 

039A t 

20 

Cl 

03 

99 


JSR 

ADD 





100 

* 



039D: 

A5 

67 


101 

DONT 

LDA 

PRGBEG 

039F ♦ 

A4 

68 


102 


LDY 

PRGBEG+1 

03A1 1 

85 

5E 


103 


STA 

RNMPTR 

03 A3 ♦ 

84 

5F 


104 


STY 

RNMPTR+1 





105 

* 



03A5i 

AO 

00 


106 

RENUM 

LDY 

*0 J FIX 'NEXT LINE' ADDRESSES 

03A7 ♦ 

38 



107 


SEC 

H ASSUMING THEY'RE ALREADY OKAY) 

03 as: 

B1 

5E 


108 


LDA 

( RNMPTR ) r Y 

03AA: 

65 

50 


109 


ADC 

LOMEM 

03AC: 

91 

5E 


110 


STA 

< RNMPTR )» Y 

03AE: 

AA 



111 


TAX 


03af: 

C8 



112 


INY 


O3B0: 

B1 

5E 


113 


LDA 

( RNMPTR ) i Y 

03B2 : 

FO 

0A 


114 


BEQ 

DONE 

03B4 : 

65 

51 


115 


ADC 

LOMEM+1 

03B6: 

91 

5E 


116 


STA 

< RNMPTR )»Y 

03B3: 

86 

5E 


117 


STX 

RNMPTR 

03ba: 

35 

5F 


113 


STA 

RNMPTR+1 

03BC: 

90 

E7 


119 


BCC 

RENUM 

03be: 

4C 

6C 

D6 

120 

BONE 

JMP 

CLEAR t NOW LET APPLESOFT DO THE REST 





121 

* 



03ci: 

38 



122 

ADD 

SEC 

i ADD LOMEM+1 TO ZERO 

03C2: 

B5 

00 


123 


LDA 

$00 ? X JZERO PAGE L.OC IN X 

03C4: 

65 

50 


124 


ADC 

LOMEM 

03C6: 

95 

00 


125 


STA 

$00 r X 

03C3: 

B5 

01 


126 


LDA 

$1»X 

03CA: 

65 

51 


127 


ADC 

LOMEM+1 

03cc: 

95 

01 


128 


STA 

$1»X 

03ce: 

60 



129 


RTS 



— - SYMBOL TABLE 


END ASSEMBLY 

LOMEM 

$50 

RNMPTR 

$5E 


PRGBEG 

$67 

VARTAB 

$69 

TOTAL ERRORS: 00 

FRETOP 

$73 

OLDTXT 

$79 


DATXT 

$7D 

HIGHDS 

$94 

159 BYTES GENERATED THIS ASSEMBLY 

HIGHTR 

$96 

PRGEND 

$AF 


TXTPTR 

$B8 

AMF’RSND 

$03F5 


CHRGET 

$B1 

BLT2 

$D3C3 


CLEAR 

$D66C 

FRMEUL 

$DD67 


SYNCHK 

$DECO 

SNERR 

$DEC9 


FRMNUM 

$E752 

lomem: 

$0340 


SKP5 

$037E 

DONT 

$039D 


RENUM 

$03A5 

DONE 

$03BE 


ADD 

$03C1 







“4s manager of Personal Computers, here at Computerland of San Francisco, evaluating new 
software products is part of my job. With all the word processors on the market today, I 
choose EasyWriter for my business and personal use.” —Karen Dexter Weiss 


EasyWriter 


80 COLUMNS OF WORD PROCESSING POWER 


FOR YOUR APPLE II COMPUTER 


Finally ... INFORMATION 
UNLIMITED SOFTWARE is able 
to bring you a complete word 
processing system for the 
Apple II. The new EasyWriter 
system gives you 80 columns 
of upper and lower case 
characters for your Apple’s 
video display, using the new 
SUP’R’TERM 1 board! 


A long time ago, we decided to 
brinp you the best simple-ho- 
use and understand tools for 
your computer system. Today 
we’ve taken another stride in 
that same direction. It took 
some doing, in both hardware 
and software, but we think 
you’ll agree that for the buck, 
no one can touch us. 


You can purchase the new 
EasyWriter 80 column word 
processing system as a com- 
plete hardware and software 
package directly from our new 
office in California, or from ' 
your local computer dealer. 


80 Columns on the Screen! 
Upper & Lower Case! 

Global Search & Replace! 
Underlining! 

Bidirectional Printing! 
Incremental Spacing! 

Pile Appending! 

50 Pages of Text Per Disk! 


Information 
Unlimited 
Software: 


Information Unlimited Software, Inc. 
793 Vincente St. 

Berkeley, CA 94707 
(415)525-4046 

• EasyWriter is a TM of Cap'n Software. Inc. 

• Apple II is a TM of Apple Computers. Inc. 


See The System at the 5th West Coast Computer Faire. 
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CONNECTING WITH THE USCD BIOS 

by Randall Hyde 


After purchasing my language system, my first goal was get- 
ting it to work with my ComputerWorld printer interface. For 
those of you who are unfamiliar with the Pascal system, let me 
mention that it only supports Apple peripheral cards. For those 
of you unfamiliar with the ComputerWorld printer interface, it 
only costs $80 (which is $100 less than the Apple printer inter- 
face). Since I have a ComputerWorld interface I certainly did 
not feel like spending an additional $180 just so I could use my 
printer with Pascal. So the obvious solution was to “patch” the 
existing system so that it would recognize, and utilize, the Com- 
puterWorld printer interface. 

After two weeks of pulling my hair out trying to dissassemble 
the UCSD BIOS (BIOS stands for Basic Input Output System) 
Dave Smith (of ComputerWorld) turned me on to an application 
note on the BIOS which was given to him by Apple Computer 
Inc. This Ap note, among other things, gave a source listing of the 
BIOS as well as directions on patching your own drivers to the 
BIOS. This Ap note should have been distributed to each of the 
local clubs as part of the “Introductory Package” sent out by the 
International Apple Corp. Ask your local club director for a 
copy if you’re interested. Anyway, with this application note in 
hand I proceeded to add my printer driver to the UCSD BIOS. 
The only problem I encountered was the fact that the free mem- 
ory mentioned in the application note is not really free. So I 
encountered quite a few problems when trying to figure out 
where to put my driver routines. Since I have a Mountain Hard- 
ware ROM Plus board, I decided to store my drivers in ROM and 
utilize the ROM Plus’ capabilities. While burning the first version 
of my driver routine it occurred to me that in addition to the 
printer driver I should also take advantage of the ROM Plus 
lowercase entry capabilities as well as the lower case display capa- 
bilities of the Dan Paymar lower case mod. So, back to the 
BIOS source listings to incorporate the required patches. Since 
I wanted this for use by the Pascal System, I needed the capa- 
bility to input such characters as “[”, “] ”, “(”, “)”, etc. To allow 
this I not only hooked up the shift key (to TTL Input #1) but 
I also wired up the control key to TTL input #2 (pin HA on the 
ROM Plus connector). Now, by pressing the shift key and the 
control key simultaneously I can input the full 96 upper/lower- 
case/special character ASCII character set! 

Some other things I added include a “CAPSLOCK” feature 
(toggled by pressing control — R) and of course I allow the use of 
the shift key when using the Pascal System for upper and lower 
case entry. This “filter’, routine can be used anywhere a “LDA 
$C000” instruction is used. Simply replace the LDA $C000 with 
a JSR $C800 (assuming of course that the ROM Plus board is 
selected) and upon return, if the accumulator is negative, then 
a key has been pressed, otherwise no key has been pressed. The 
listing for this routine appears in listing #1 (the assembler used is 
LISA), The routine is called “CONSOLE”. 

Also included in listing one is the initialization procedure for 
the ComputerWorld interface card as well as the printer write 
routine for the ComputerWorld interface card. Note that these 
routines are assembled at different pages in the expansion ROM 
memory space to allow customization for the user’s particular 
needs. 


Once these routines are burned into ROM I have made the as- 
sumption that this ROM will be stuck in the number two ROM 
socket. Once the ROM is placed in this socket these routines are 
available for use by the Pascal system. There is one problem how- 
ever. The UCSD BIOS does not know that these drivers even 
exist. This means that we have to actually go in and change cer- 
tain locations in the BIOS to tell it when to use these routines. 
This problem is handled by a special program called a “SYSGEN” 
program. This SYSGEN program goes in and modifies the Apple 
Pascal BIOS so that the printer card is recognized and the lower 
case modifications can take place. 

Typically there are two ways to write a SYSGEN program. 
You can write it as a “one-shot” which you execute once and it 
modifies the BIOS on the Pascal disk. Or you can write it as a 
“dynamic SYSGEN” which must be executed each time the disk 
is booted. The one-shot method has the obvious advantage in 
that you don’t have to worry about running the SYSGEN 
program everytime you boot your Pascal disks. It has the not- 
so-obvious disadvantage in that it can possibly make your Pascal 
disks incompatible with other systems. Since compatibility is 
a major concern I chose to use the dynamic method for my 
SYSGEN program. 


Listing #2 is the listing for the SYSGEN program. This pro- 
gram is written in 6502 assembly language using the Pascal Adap- 
table Assembler. This routine simply turns off the language card 
write protect and proceeds to overwrite portions of the BIOS 
with the patches for use with the drivers I had stored previously 
in the ROM Plus. Other patches are made to allow lower case dis- 
play capability, as well as to allow the Pascal system to recognize 
the ComputerWorld ROM. 

Since the Pascal system cannot execute an assembly language 
program directly (at least to my knowledge), a short Pascal pro- 
gram appears in listing #3. After its compilation you must link 
this Pascal program to the previously assembled SYSGEN routine. 

Once the above steps have been taken, you can simply 
“eXecute” the SYSGEN program at the Pascal command level, 
and presto! Lowercase capability and printer capability are yours. 

I will attempt to answer any questions you may have about 
the BIOS, simply write: 

RANDY HYDE 
c/o APPLESAUCE 
12804 MAGNOLIA 
CHINO, CA 91710 


applesauce 

ORIGINAL APPLE CORPS 

APPLESAUCE is the somewhat monthly publication of THE ORIG- 
INAL APPLE CORPS. Each month Applesauce features articles on 
BASIC, Assembly Language, Pascal Business Applications and per- 
sonal applications for the Apple II. It is not simply a collection of 
Peeks, Pokes, Calls and utilities, but features articles and columns 
each month. 

A subscription to APPLESAUCE costs $15 for 1 year (foreign or- 
ders please add $15 for airmail postage). To get your subscription 
started, or to get a sample copy write: 

APPLESAUCE 12804 Magnolia Ch ino, CA 9 1 7 1 0 
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0800 


1 



0800 


2 

r 


0800 


3 

r 


0800 


4 

i CONSTANTS ETC* 


0800 


5 

A 

T 


0800 


6 

CNTRL* R EQU *92 


0800 


7 

CNTRL* K EQU *8B 


0800 


8 

LINEFEED EQU *8A 


0800 


9 

RETURN EQU *8D 


0800 


10 

SHFTMASK EQU *20 


0800 


11 

CNTLMASK EQU *10 


0800 


12 

TRUE EQU *1 


0800 


13 

FALSE EQU *0 


0800 


14 

4 

r 


0800 


15 

7 


0800 


16 

i SPECIAL LOCATIONS 


0800 


17 

7 


0800 


18 

ROMPUJS EQU *COAO 

i ASSUMED IN SLOT #2 

0800 


19 

SHIFTFLG EQU ROMPLUS 

t LOCATION OF SHIFT FLAG 

0800 


20 

CNTRLFLG EQU ROMPLUS 

i LOCATION OF CTRL FLAG 

0800 


21 

KEYBOARD EQU *C000 

; KEYBOARD PORT 

0800 


22 

KEYSTRB EQU *C010 

; KEYBOARD CLEAR PORT 

0800 


23 

7 


0800 


24 

i VARIABLES} 


0800 


25 

7 


0800 


26 

KEYSAVE EQU *CFOO 

} CHAR SAVE AREA (IN ROM:-) 

0800 


27 

CAPSLOCK EQU *CF01 

) SH I F TLGCK BOOLEAN 

0800 


28 

7 


0800 


29 

A 

7 


0800 


30 

* 

7 


0800 


31 

A 

7 


0800 


32 

A 

7 


0800 


33 

A 

7 


0800 


34 

PAG 


t;800 


35 

ORG *C800 


C800 


36 

OBJ *1000 


C800 


37 

7 


C800 


33 

7 


C800 


39 

i UCSD PASCAL LOWER CASE 

CONSOLE 

C800 


40 

? DRIVER* FOR PLACEMENT 

IN 

C800 


41 

; MOUNTAIN HARDWARE'S ROM 

PLUS* 

caoo 


42 

7 


C800 


43 

A 

7 


C800 


44 

CONSOLE: 


caoo 

ADOOCO 

45 

LDA KEYBOARD 


C803 

3001 

46 

BM I CNSLi 


C805 


47 

7 


C803 


40 

i NO KEY, SO RETURN 


C805 


49 

A 

T 


C803 

60 

50 

RTS 


C806 


51 

7 


C806 


52 

A 

7 


C0O6 


53 

i KEY WAS PRESSED, SAVE S 

;tatus 

C806 


34 

A 

r 


C806 

08 

55 

CNSLI PHP 


C80/ 


56 

A 

r 
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C807 


57 

A 

y 

C80/ 


58 

i CLEAR KEYBOARD PORT 

C807 


59 

7 

C80/ 

2C.10C0 

60 

BIT KEYSTRB 

C80A 


61 

r 

C80A 


62 

7 

C80A 


63 

; TEST FOR CONTROL-R (SHIFT/CAPS LOCK) 

C80A 


64 

7 

CSOA 

8D00CF 

65 

STA KEYSAVE f SAVE INPUT CHAR 

C80D 

C992 

66 

CMP **CNTRL.R 

ceoi 

DOOFZ 

67 

BNE CNSL.2 

C8.ll 


68 

7 

can 


69 

i NOW TOGGLE CAPS LOCK MODE AND 

C811 


70 

; RETURN 

can 


71 

7 

can 

ADO 1 CF 

72 

LDA CAPSLOCK 

C814 

4901 

73 

XOR »TRUE 

C816 

2901 

74 

AND «TRUE 

C818 

8D01CF 

7 5 

STA CAPSLOCK 

C81B 

28 

76 

PLP ? FIX STACK 

C81.C 

A 9 00 

77 

LDA «$0 ; FILL ACC WITH NON- NEC # 

celt: 

60 

78 

RTS 

C81F 


79 

A 

r 

can- 


80 

; TEST THE CURRENT CHARACTER 

ce if 


81 

7 

C81F 


82 

CNSL2 1 

C81F 


83 

7 

C8.1F 


84 

i SEE IF SHIFT IS PRESSED 

C81F 


85 

7 

C81F 

A 920 

86 

LDA wSHFTMASK 

C821 

2CA0C0 

87 

BIT SHIFTFLG 

C824 

D06B 

88 

BNE NORMAL 

C826 


89 

7 

C826 


90 

; NOW TEST FOR SIMULTANEOUS CTRL KEY 

C826 


91 

7 

C826 

A910 

92 

LDA #CNTLMASK 

C828 

2CA0C0 

93 

BIT CNTRLFLG 

C828 

D03 1 

94 

BNE TSTSHFT 

C82D 


95 

7 

C82D 


96 

i CONTROL-SHIFT CHAR HERE 

C82D 


97 

A 

y 

C82D 

A20C 

98 

LDX #12 fINIT FOR 12 CHARS 

C82F 

ADOOCF 

99 

LDA KEYSAVE 

C832 

DD44C8 

100 

CSLOOP CMP SPEC t X 

C835 

F 008 

101 

BEQ FND1 

C83/ 

CA 

102 

DEX 

C838 

10F8 

103 

BPL CSLOOP 

C83A 


104 

r 

C83A 


105 

) IGNOR C-S COMBINATION AND PASS 

C83A 


106 

f CHARACTER UNCHANGED 

C83A 


107 

7 

C83A 

ADOOCF 

108 

LDA KEYSAVE 

C83D 

28 

109 

PLP 

C83£ 

60 

110 

RTS 

C83F 


111 

A 

y 

C83F 


.112 

A 

y 

C83F 


113 

; SPECIAL CHARACTER WAS DETECTED » 

C83F 


114 

t CONVERT AND LEAVE 
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C83F 


115 

r 


C83F 

BD3.1C8 

116 

FN01 

LDA SPECVAL. X 

C842 

28 

117 


PLP 

C843 

60 

118 


RTS 

C844 


119 

f 


C844 

A1A2A3 

120 

SPEC 

ASC *' ! " "#**&' ( )=?><" 

C847 

A4A5A6 




C84A 

A7A8A9 




L'84D 

BDBEBE 




C8S0 

BC 




C851 

FCDE 

121 

SPECVAL 

ASC " i A “ 

C833 

FF 

122 


BYT $FF 

C854 

C0A3A6 

123 


ASC M ®2fA'0_\3C“ 

C837 

EOF BED 




C85A 

DFDCDD 




C85D 

DB 




C85E 


124 

A 

t 


C85£ 


125 

A 

y 


C83E 


126 

A 


C8SE 


127 

A 

y 


C85L 


128 

f SHIFT 

KEY IS PRESSED HERE 

C8 Sh- 


129 

r 


ea 3E 


130 

TSTSHFTi 


C83E 

ADO IGF 

131 


LDA CAPSLOCK 

C861 

DO ID 

132 


BTR NOCHNG 

C863 


133 

A 

y 


C863 

A202 

134 


LDX *2 UNIT FOR 

C863 

ADOOCF 

135 


LDA KEYSAVE 

C868 

DD7AC8 

136 

SFTLODP 

CMP SHFTC. X 

C868 

F 008 

137 


BEQ FND2 

C86D 

CA 

138 


DEX 

C86E 

10F8 

139 


BPL SFTLOOP 

CS70 


140 

A 

y 


C870 


141 

i AT THIS POINT » LEAVE THE CHARACTER 

C870 


142 

; ALONE 


CS70 


143 

r 


C870 

ADOOCF 

144 


LDA KEYSAVE 

C873 

28 

145 


PLP 

C874 

60 

146 


RTS 

C87 5 


147 

r 


C875 


148 

; NOW A 

" 3 " » OR " A " HAS BEEN 

C8/5 


149 

i ENCOUNTERED. CONVERT TO "P"> "M"i OR "N 

C87 5 


150 

A 

y 


C875 

bo/ oca 

151 

FN02 

LDA SHFTCC.X 

C878 

28 

152 


PLP 

C8/9 

60 

153 


RTS 

C87A 


154 

J 


C87A 


155 

F 


C87A 

CODDDE 

156 

SHFTC 

ASC "@3 A " 

C87D 

DOCOCE 

157 

SHF ICC 

ASC "PMN" 

C880 


158 

A 

r 


C880 


159 

r 


C880 


160 

} IF YOU 

GET TO THIS POINT THEN THE 

C880 


161 

i CAPSLOCK MODE IS IN EFFECT. SO TREAT 

C880 


162 

f THE CHARACTER EXACTLY AS IT COMES 

C880 


163 

( FROM THE APPLE KEYBOARD. 

C880 


164 

A 

r 


C880 


165 

NOCHNGj 



MARCH/APRIL 1980 


' * " 3 " . 8< “ A “ 



MARCH/APRIL 1980 



THE APPLE ORCHARD , PAGE 29 

caao 

ADOOCF 

166 


LDA KEYSAVF. 

C863 

C988 

167 


CMP #CNTRL . K ;CONTROL-K? 

C885 

D005 

168 


BNE NOCHNGl 

caa/ 

A9DB 

169 


LDA *"C" ; CHANGE TO " C " 

C889 

8D00CF 

170 


STA KEYSAVE 

C88C 


171 

r 


C88C 

ADOOCF 

172 

NOCHNGl 

LDA KEYSAVE 

C80F 

28 

173 


PLP 

C890 

60 

174 


RTS 

C891 


175 

r 


C891 


176 

y 


CS91 


177 

i NORMAL 

CHARACTERS HERE (NO SHIFT OR CTRL) 

C891 


178 

7 


C891 


1/9 

NORMAL; 


C891. 

AD01CF 

180 


LDA CAPSLOCK 

C894 

DOE A 

181 


BTR NOCHNG 

C896 


182 

7 


C896 


183 

; IF NOT 

IN CAPSLOCK MODE. AND 

L896 


104 

! CHARACTER IS ALPHABETIC- " UNSHIFT" 

C896 


185 

; IT. 


C896 


186 

7 


C896 

ADOOCF 

187 


LDA KEYSAVE 

C899 

C9C1 

188 


CMP «"A" 

C89B 

90E3 

189 


BLT NOCHNG 

C89D 

C9DB 

190 


CMP tt"Z"+$l 

C89F 

BOOF 

191 


BGE NOCHNG 

C8A1 

0920 

192 


ORA *$20 

C8A3 

8D00CF 

193 


STA KEYSAVE 

C8A6 

4CS0C8 

194 


JMP NOCHNG 

C8A9 


195 

7 


D0A9 


196 

7 


C8A9 


197 

7 


C8A9 


198 


PAG 

C900 


199 


ORG $C900 

C900 


200 


OBJ $1100 

C900 


201 

7 


C900 


202 

7 


C900 


203 

7 


C900 


204 

; ************************************************** 

C900 


205 

7 


C900 


206 

7 


C900 


207 

7 


C900 


208 

} COMF'UTERWORLD (ALIAS CCI OF OC ) 

C900 


209 

t PRINTE 

R INTERFACE DRIVER 

C900 


210 

7 


C900 


211 

PINIT; 


C900 

A900 

212 


LDA *0 

C902 

QD90C0 

213 


STA $C090 

C905 

8D93C0 

214 


STA $C093 

c9oa 

A 904 

215 


LDA »4 

C90A 

8D91C0 

216 


STA $C091 

C90D 

A9FF 

217 


LDA 4t$FF 

C90F 

8D92C0 

218 


STA $C092 

C912 

A93C 

219 


LDA #$3C 

C914 

8D93C0 

220 


STA $C093 

C91 / 

A 200 

221 


LDX #$0 

C919 

60 

222 


RTS 
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C91 A 



y 


C91 A 


224 

A 

y 


C91 A 


' •> O cr 

y 


C91 A 


226 

PAG 


CAOO 


''O j 

ORG ♦CAOO 


CAOO 


228 

OBJ $ 1 200 


CAOO 


229 

y 


CAOO 


230 

; CCI PI CHAROUT ROUTINE 


CAOO 


231 

y 


CAOO 


232 

PWRITi 


CAOO 

297 F 

233 

AND *$7F 

} STRIP H* 0* BIT 

CA02 

48 

234 

PHA 

; AND SAVE 

CA03 


235 

r 


CA03 

208 1D6 

236 

HANDSHK JSR $D681 

JTEST KEYBOARD 

CA06 

AD90C0 

237 

LDA ♦CO 90 


CA09 

30F 8 

238 

BMI HANDSHK 


CAGE 


239 

y 


CAGE 


240 

i RETRIEVE CHARACTER AND 

OUTPUT 

CAGE 


241 

t TO PRINTER 


CAGE 


242 

y 


CAGE 

68 

243 

PLA 


CAOC 

8D92C0 

244 

STA ♦C092 


CAOF 

A93 1 

245 

LDA »$31 


CA11 

8D93C0 

246 

STA $C093 

; TOGGLE CHAR AVAILABLE 

CA.14 

A93C 

247 

LDA #*3C 


CA16 

8D93C0 

248 

STA 4C093 


CA.19 

60 

249 

RTS 




250 

END 


***** 

END OF 

ASSEMBLY 



FINALLY, Apple II® software for the discerning computerist, 
and the not-so-discern!ng beginner 

AppleAids™ 

Little Tricks™ * Form-lt-Out™ 

A series of carefully explained subroutines containing a potpourri of A series of routines in Integer Basic and Applesoft containing detailed 
useful programming techniques in Integer Basic and Applesoft, such as explanation and examples of programming techniques .necessary to 

specific key stroke identification, timing loops, disappearing question professionalize your screen output. Included are right and center justi- 

marks on input, no question marks on input, and many more. fication, windowing, tabbing, cursor positioning among others. 

Cassette (24K) 14.95 Disk (32K) 19.95 Cassette (24K) 14.95 Disk (32K) 19.95 

Scroll Control™ Track & Sector List™ 

Have you ever wondered why you cannot list an Integer Basic or This is the ultimate disk utility. Instead of a catalog, have you ever seen 

Applesoft program one screen-page at a time? So have we, and we those dreaded words “I/O ERROR”? Is all lost? NO! Now your disk may 

did something about it! Our machine language Scroll Control, hidden be saved. Also you can eliminate bad sectors, remove control characters 

in RAM so as not to “bump” into your program, can be engaged or dis- imbedded in file names, and more. This machine language program is 

engaged at a flick of the keyboard. Why be frustrated when instead you supplemented by extensive tutorial documentation worth its weight in 

can control the scroll? Cassette 9.95 Disk 14.95 gold. Disk only (32K) 29.95 

Compuiaw™ Series Hex and Decimai Learning Tree™ 




ASitax Estimator™ 

This Applesoft program, prepared under the supervision of an attorney, 
estimates disposable income after alimony and child support payments 
and federal taxes. For use by laymen and attorneys. 1980 tables. 
Cassette (24K) 9.95 Disk (32K) 14.95 

Pensionner™ 

A companion to Alitax Estimator in Applesoft designed to calculate the 
present value of a pension in states in which a pension is subject to 
division in marital dissolution cases. 

Cassette (24K) 9.95 Disk (32K) 14.95 


My ABC’s™ 

An early learning Integer Basic program using over one hundred and fifty 
high resolution graphic letters and pictures in a drill-and-practice format 
designed to develop identification of capital and small letters, and 
association of letters with pictures. Scoring capability allows monitoring. 
Child tested and teacher recognized. Cassette (48K) 14.95 Disk 19.95 

Now I Can Rhyme™ 

A companion to My ABC’s in Integer Basic. The child selects those high 
resolution pictures which rhyme. Score-keeping capability allows 
monitoring. Incorporates progressive levels of difficulty. 

Cassette (48K) 14.95 Disk (48K) 19.95 


N.J. res. add 5% sales tax 
Apple II and Applesoft are registered 
trademarks of Apple Computer, Inc. 
Add $1.50 /item, shipping and handling 
‘professional, but not a substitute for 
legal advice 





P.O. Box 774 M 
Morristown, NJ 07960 
(201) 539-3770 


INCORPORATED 
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PAGE - 1 LWRCASE FILE; L» ASM 


OOOO ! 


*PROC LWRCASE 

Current memory aval 1 ab \ e* 

9527 

0000 ! 
oooo : 
0000 ! 

AD 83C0 

LDA 0C083 i TURN ON RAM WRITE 

0003 i 

AD 83C0 

L.DA 0C083 r ON LANGUAGE CARD* 

0006 ! 
0006 : 
0006 ! 


; ROM PLUS PATCH TO ALLOW LOWER CASE 

0006 ! 


; INPUT TO PASCAL SYSTEM* 

0006 ! 



0006 ! 

AO 00 

LDY #0 

0003 : 

B9 **** 

LOOP LDA DATA! t Y 

OOOB ! 

99 9AD6 

STA 0D69A> Y 

oooM : 

C8 

INY 

000 F ! 

CO 10 

CF'Y #10 

00 .1 1 ! 

90F5 

BCC LOOP 

0013! 
0013 ! 
0013! 


i LOWER CASE DISPLAY PATCH. CONVERT THE 

0013 ! 


; SBC #$20 TO A BCC *+*4 INSTRUCTION WHICH 

0013! 


i ALLOWS LOWER CASE TO BE DISPLAYED IF 

0013 ! 


i THE USER HAS A DAN PAYMAR BOARD 

0013 ! 
0013 ! 

A9 80 

LDA #080 

0015! 

8D E8D8 

STA 0D8E8 

0013 ; 

A? 02 

LDA #2 

001 A! 

8D E9D8 

STA 0D8E9 

0010 ! 
00 ID ! 
0010 ! 


t COMPUTERWORLD PRINTER INITIALIZATION 

001 D! 


{ PATCH TO BIOS. 

001 0 ! 
00 ID ! 
0010 ! 

AO 00 

LDY #0 

001 F ! 

B9 *#** 

L00P2 LDA DATA2> Y 

0022 ! 

99 EODA 

STA ODAEO t Y 

0025 ! 

C8 

INY 

0026 ! 

CO OE 

CPY #0E 

0028 ! 

90F 5 

BCC L00P2 

002A ! 
002A ! 
002A ! 


; PATCH UP A JUMP TO THE ABOVE PRINTER 

002 A ! 


; I NIT ROUTINE* 

002A ! 
002A ! 

A9 4C 

LDA #4C 

002 C ! 

8D SAD/ 

STA 0D78A 

002 F ! 

A9 EO 

LEiA #0E0 

0031 ! 

8D 880/ 

STA 0D78B 

003-1 ! 

A 9 DA 

LDA #ODA 

0036 ! 

8D 8CD7 

STA 0D78C 

0039 ! 
0039 ! 


; MOVE THE PRINTCHAR ROUTINE INTO BIOS 

0039 ! 
003? ! 

AO 00 

LDY #0 
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0033 j 
003 E i 
00*11 ! 

0042 I 
0044 i 
0046 ! 
0046 I 
0046 ! 
00-1 6 J 
0046 ! 
0046 ! 
0048 i 

0043 I 
004 D ! 

oo so : 

00 S 2 i 
0035 ! 
00 5 S ! 
00 3 5 i 
00 55 ! 
00 55 I 
00 5 5 J 
0055 I 
00 5 7 ! 
00 3 A ! 
00 SC ! 
00 5 F ! 
00 SF ! 
00 3 K ! 
00 SF I 
00 SF ! 
00 SF i 

006.1 : 

0064 ! 
0064 ! 
0064 1 
0064 j 
006*7 ! 

0069 i 
006C ! 
006C ! 
006C i 
0060 1 
006C ! 
006F i 

0070 ! 
00/0 ! 
0070 ! 
0009 * 
007 0 ! 
00 7 3 ! 
007 S \ 
0078 ; 
00 7 B I 

oo /D ; 

00 7 F ! 
0080 ’ 
0080 ! 


89 

99 FODA 
CS 

CO OF 

90 F 3 


LOOPS LDA DAT A3 1 Y 
ST A ODAFO#Y 
I NY 

CRY #0F 
BCC L00P3 


f PATCH IN A JUMP TO THE PRINT CHAR 
r ROUTINE* 


A9 

4G 

LDA 

«4C 

8D 

1 IDS 

STA 

0D811 

A9 

FO 

LDA 

#QFO 

0D 

12D8 

STA 

0D812 

A 9 

DA 

LDA 

»00A 

8D 

13D8 

STA 

0D813 


A 9 48 
8 Ei 10D6 
A9 04 

an i486 


A 9 OS 
8D F9BF 


AD OFBF 
09 80 
8D OFBF 


? FIX UP CARD RECOGNITION BYTES TO 
? CORRESPOND TO THE COMPUTERWORLD 
? INTERFACE* . 

LDA #48 r SHOULD BE 4 FOR NEWER CARDS 

ST A 0D610 

LDA #4 r SHOULD BE 93 FOR NEWER CARDS 

ST A 0D614 

i PLACE A S IN LOCATION BFF 9* THIS TELLS 
r APPLE PASCAL THAT A PRINTER INTERFACE 
% CARD IS IN SLOT #1 

LDA #S 
STA 0BFF9 

r SET LINE FEED IGNOR MODE 

LDA DBF OF 
ORA #80 
STA OBFOF 


r WRITE PROTECT RAM CARD 


AD 88C0 
60 


LDA 0C088 

RTS 


r LOWERCASE INPUT DRIVER ROUTINE 


7000 


AD 

FF 

CF 

DATA! .BYTE 

OAD t OFF t OCF 

r 

LDA 

$CFFF 

A9 

8A 


. BYTE 

0A9 > 8A 

r 

LDA 

#$8A 

8D 

AO 

CO 

. BYTE 

8D t GAO t OCO 

i 

STA 

$COAO 

20 

00 

C8 

. BYTE 

20 . o » oca 

T 

JSR 

$C800 

10 

3C 


. BYTE 

10. 30 

7 

BPL 

JDONCK 

29 

7F 


. BYTE 

29. 7F 

7 

AND 

4 **7F 

E A 



. BYTE 

OEA 

7 

NOP 
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0080 ! 



COMPUTERWORLD PRINTER 

I NIT 

ROUTINE 

0080 i 








0020* 

8000 







0080 ! 

AD FF 

CF 

DATA2 4 BYTE 

OAD > OFF > OCF 

r 

LDA 

$CFFF 

0083 ! 

A9 8A 


♦ BYTE 

0A9. BA 

r 

LDA 

**$8A 

0083 ! 

80 AO 

CO 

♦ BYTE 

eo . oao > oco 

7 

STA 

$COAO 

0088 ! 

20 00 

C9 

♦ BYTE 

20. 0# 0C9 

7 

JSR 

$0900 

OOBB ! 

A2 00 


» BYTE 

0A2 > 0 

r 

LDX 

#$0 

008D i 

60 


♦ BYTE 

60 

7 

RTS 


OOBE ! 








003C* 

8E00 







OOBE ; 

AD FF 

CF 

DAT A3 ♦ BYTE 

OAD. OFF. OCF 

7 

LDA 

$CFFF 

0091 1. 

A9 8A 


* BYTE 

0A9.BA 

* 

7 

LDA 

#$8A 

0093 ! 

80 AO 

CO 

♦ BYTE 

QD. OAO. OCO 

7 

STA 

$COAO 

0096 ! 

8A 


4 BYTE 

8A 

7 

TXA 


009/ ! 

20 00 

CA 

4 BYTE 

20. 00. OCA 

r 

JSR 

$CAOO 

009 A ! 

A2 00 


♦ BYTE 

0A2 > 00 

7 

LDX 

#$0 

00 9 C ! 

60 


* BYTE 

60 

7 

RTS 


00 9 D ! 








0090 ! 



* END 
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F I LE i L ♦ ASM SYMBOLTABLE DUMP 


AB - 

Abs 

a lute 

LB - 

Labe 1 

UD 

RF - 

Ref 


DF - 

Def 

PR 

PB - 

Pub 

1 ic 

PV - 

Pr i va t e 

CS 

DATA1 


LB 0070 i 

DATA 

a lb 

0080 


MC 

FC 


Macro 
F uric 


LB 001 FI LOOPS 


LB 003 B ! 


Const s 


DATA3 
LWRCASE PR 


LB OOBE ! LOOP 


LB 0008 ! LOOP 


t^f^ELEPHONE 5 of|wARE 


2 

1 1 5 D 

1 {$L PRINTER: , > 


3 

.1 1 ; 0 

1 PROGRAM LOWERCASE: 

purchase and receive software For the 

4 

1 2; D 

1 PROCEDURE LWRCASE: 

APPLE It INSTANTLY ---THROUGH YouR MODEM- 



external: 

A VARIETY OF PROGRAMS AT REASONABLE PRICES, 

3 

1 1:0 

0 BEGIN 

FOLLY DOCUMENTED AND TESTED, ALWAYS IN STOCK 

6 

1 1:0 

0 

OPEN 24 HOURS. 

/ 

8 

1 1:1 

1 1:1 

0 LWRCASE: 

4 

Your _ gladly accepted. 

NEVER A CHAR6E FOR POSTAGE OR HANDLING. 

9 

1 1 : 0 

4 END. 

Save time and money, avoid disappointment. 


DOS ERROR 

MESSAGE OVERRIDES 


To avoid the NOMON CIO default! 

Call today For a free demonstration 

POKE 

- 25129*234. 


AND A FREE SAMPLE PROGRAM. 

POKE 

- 25128*234. 




POKE - 25127*234 

To defeat the NOT DIRECT COMMAND error! 

POKE - 24543*24. 

POKE - 24542*234. 

POKE - 24541*234 

Thes locations are for 48K. For 32K* add 41952 


£ (l«3) 32S-3H5 modem 
MTU It IS A REGISTERED TRADEMARK. Of MT1£ COMrWEK, IMC. 


fOST OFFICE 1)0 x fc5Hf — TORRANCE > CALIFORNIA ‘losof 



MICROSOFT CONSUMER PRODUCTS 

CONTINUING THE 
MICROSOFT TRADITION 


Microsoft set the standard in microcomputer system software. We know more 
about the structure and capabilities of today’s microcomputers than anyone else. 
And now we’re using that power in a whole new way! 




Announcing Microsoft Consumer Products. Dis- 
tinctive software packages backed by the Microsoft 
name. Each is created by a top-notch programmer 
and comes to you fully documented, at a cost you 
can afford. 

Microsoft Editor/Assembler-Plus.'" Now get every 
feature of Radio Shack's Editor/Assembler andT-Bug 
all in one package. PLUS— many "big computer" 
features to simplify your programming, editing and 
debugging. All in a low cost cassette package. 
Don't waste time creating both source and object 
tapes— Assembler-Plus assembles directly into mem- 
ory. Supports macros and conditional assembly, too. 
Editor-Plus simplifies editing with extra commands 
like Substitute, Move, Copy and Extend. And 
Z-Bug,“ the most powerful debugger ever available 
for the TRS-80, has single step execution, direct 
execution in calculator mode and symbolic refer- 
ences. And, you can use up to 8 breakpoints at a 
time, with no need to remove a breakpoint before 
proceeding. For the 16K, Level II, cassette TRS-80. 
Priced at $29.95. 

Microsoft Adventure. Only Microsoft offers Adven- 
ture complete, as originally written for the DEC 
PDP-10, now implemented on personal computers. 
The ultimate fantasy/logic game. Adventure allows 
you to explore the depths of the "Colossal Cave',' 
collecting treasures and magic, solving puzzles, 
avoiding hazards and adversaries— including the 
dreaded killer dwarves. Don't be fooled by imita- 
tion or incomplete versions. Only Microsoft has it all. 
Adventure fills an entire disk with everything you 
need for your exploration. Written by Gordon Letwin, 
of SOFTWIN, Associates. Adventure for the TRS-80 re- 
quires a single-disk, 32K system. For the Apple II," a 
single-disk, 32K system with either the standard disk 
or language card system. For just $29.95. 


Microsoft Typing Tutor. There's no easier way to mas- 
ter your keyboard! Faster and more efficient than 
any other teaching method. Typing Tutor helps you if 
you're starting from scratch or simply building 
speed. The secret lies in Typing Tutor's exclusive TRM“ 
or "Time Response Monitoring" software. TRM moni- 
tors your keyboard 20 times per second so the com- 
puter can evaluate your skill. Your speed. Your errors. 
Your weakest keys. Typing Tutor tells you where you 
stand then automatically adjusts itself to help you 
improve. Written by Dick Ainsworth and Al Baker of 
the Image Producers, Inc. For the Apple II with 16K 
and Apple BASIC or the TRS-80 with 16K and Level II 
BASIC. Priced at $14.95. 

Microsoft Level ill BASIC. Upgrade your Level II 
TRS-80 and increase your programming efficiency 
without additional hardware. Microsoft Level III 
loads from cassette tape on top of the Level II ROM. 
It gives you every feature of Disk BASIC except disk 
file commands. But that's not all— Level Ill's high- 
speed graphics turn your TRS-80* into a virtual elec- 
tronic drawing board. And there's program renum- 
bering, long error messages, quick shift-key entries, 
time-limit INPUT statements and many more fea- 
tures. System requirements: Level II BASIC and 16K. 
Occupies 5.2K RAM. Priced at $49.95. 

Where To Buy. Microsoft Consumer Products are 
sold by computer retailers nationwide. If your local 
computer store doesn't have them, call us. Phone 
(206) 454-1315. Or write Microsoft Consumer Products, 
10800 Northeast Eighth, Suite 819, Bellevue, WA 98004. 


'TRS-80 is a trademark of Radio Shack Corp. * 'Apple II is a trade- 
mark of Apple Computer, lnc., ,M Editor/Assembler-Plus and Z-Bug 
are trademarks of Microsoft. TRM js a trademark of The Image 
Producers, Inc. 
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SOFTWARE DEVELOPMENT TOOLS 
FOR THE APPLE II 


by 

Bob Stout 


INTRODUCTION 

The introduction of the Apple 11+ was hailed by many as the 
answer for many small systems (read business and similar systems) 
applications. An Apple with Applesoft as its primary language is 
obviously better suited to this market than the original Apple II. 
However the adoption of the Autostart ROM as the new standard 
monitor chip will unfortunately only serve to further isolate the 
user from the computer’s internal operation and structure. While 
thjs is unfortunate for the casual user who may no longer be 
tempted by the possibilities that the asterisk cursor challenges 
one to explore, it is critical to the serious user who no longer has 
the capability to debug his machine language software. The trace 
and single-step facilities have been sacrificed to make room for 
new functions. 

The Apple II has long had the potential to be developed into a 
serious and competitive tool to develop applications software for 
the popular 6500-family of microprocessors. Essential for this use, 
however, are software tools capable of analyzing and generating 
object code (machine language software) at a thoroughly profes- 
sional level. The tools required are: 

1 . Text editor, 

2. Assembler, 

3. Debugger, 

4. Enhanced monitor software, 

5. EPROM programming facilities, 

6. Hardware debug capability, 

7. High-level language compilers, and 

8. Provision for other microprocessors (e.g. Z-80, 6809, etc.) 

Since there are many good editors and assemblers on the mar- 
ket (most notably ASM/TED from Carl W. Moser, Winston-Salem, 
NC), I will discuss in this article the steps that have been taken to 
fill the next essential requirements of a good debugger. Subse- 
quent articles will deal with the other subjects listed in sequence. 

TECHNIQUES 

Simply stated, a good debugger must be capable of executing 
object code in a controlled manner while providing a continuous 
flow of information back to the operator who must always know 
what’s going on as well as what’s going to happen and what has 
already happened. The key is in the CONTROLLED execution of 
the object code. The operator must be able to conditionally decide 
when the program will run and when it must stop. Obviously, the 
normal operating environment of the computer does not provide 
this capability. However, there are two standard techniques to 
allow it. This may be demonstrated in fig. 1. The assembly listing 
for this short section is shown in fig. 1A. Fig. IB illustrates an im- 
plementation of the most popular debug technique. As may be 
seen, the debug software sequentially picks out and saves each op- 
code, in turn replacing it with a ‘BRK’ command, then restores it. 
As the program executes, each ‘BRK’ command causes the de- 
bugger to be invoked every step of the way. The alternative tech- 
nique in fig. 1C shows a dummy memory area and program coun- 
ter (PC). The program is relocated into the dummy area one in- 
struction at a time. In this case the program never really “runs” in 
any conventional sense, but rather the debugger runs, examining 
each instruction and then either modifying the dummy program 
counter or jumping to the dummy instruction as required. 


Due to its simplicity, the technique shown in fig. IB is the 
more popular but it does have two shortcomings. First the code 
to be debugged must be in RAM, and secondly we could never 
use the debugger on any Apple without the Autostart ROM since 
a programmable ‘BRK’ vector is required. Although more complex, 
the technique of fig. 1C is obviously preferable for use with the 
Apple II. In addition to its complexity, the only other significant 
shortcoming of the technique we will discuss is its slow free-running 
execution speed, since the debugger and not the application pro- 
gram is always the one running. 

REGISTERS 

A key requirement of any good debugger is the ability to step 
through a program and to feed back a running stream of data. 
Most important, obviously, are the contents of all internal CPU 
registers (as displayed by the step and trace functions of the old 
Apple II monitor ROM). This may not be enough, however, for a 
comprehensive analysis. In a registe r-oriented processor such as an 
8080 (9 CPU registers) or Z-80 (21 CPU registers) this might be 
sufficient, but the 6502 is memory-oriented, that is, most work- 
ing data are in external RAM rather than the 5 CPU registers. It is 
therefore desirable to be able to define external RAM locations 
which may be traced during debugging as if they were internal 
CPU registers. Additionally, since many of these registers may be 
used to hold indirect addresses, it would be well to treat them as 
16-bit registers (i.e. trace 2 bytes beginning with each specified 
memory address) and to provide a means of tracing the indirect 
location referenced. 

The next consideration must be the stack pointer (SP). Since 
the debugger software uses 'subroutines, it will obviously alter 
the SP. Although we can save the SP' after each step and restore 
it pribr to each new instruction, we must also assure the integrity 
of the stack data. Most of the new-generation micro processors 
such as the Z-8000, MC6800, etc. neatly solve this sort of prob- 
lem by incorporating 2 SP’s, one for systems use and the other 
for applications software. The fact that the 6502 restricts the 
stack to page 1 ($0100401 FF) of memory allows us to easily 
implement a similar scheme in software, using the 8-bit 6502 SP. 
To do this we will adopt the convention that locations $0100- 
$01 7F are the user stack while locations $0180401 FF are the 
system stack. This allows us complete freedom to manipulate and 
save the user stack while assuring the integrity of its data. A less 
obvious benefit is that, having adopted this convention, any SP 
value less than $7F signifies the presence of data on the user stack 
which may be displayed along with the CPU registers and external 
trace addresses. This allows us to quickly see programming errors 
such as trying to execute an ‘RTS’ after data have been pushed 
onto the stack (sound familiar?). 
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BREAKPOINT and HISTORY 

While single-stepping or printed traces may be fine for detailed 
analysis of a section of code, it is also desirable to be able to just 
let the program run until a previously specified breakpoint is 
reached and then examine the CPU status and program history. 
To do this we need merely to compare the dummy PC with our 
pre-defined breakpoints and exit if there is a match. To save a his- 
tory of program execution, we merely implement a software-driven 
stack and push each new PC address on it in turn. A convenient 
256-byte buffer used in this manner will record the past 128 steps 
of the program’s history. 

PRACTICAL APPLICATIONS 

A simplified flowchart of a complete debugger is shown in fig 2. 

Although this follows the techniques previously discussed, a 
‘BRK’ instruction debugger could be implemented with the Auto- 
start ROM using many of the same techniques. A debugger with 
all of these features and more is available as part of The Micro 
Power System available on diskette from Micro Power Designs, 1 
Inc., Alief, TX 77411 for $150. Although this is a copyrighted 
software system designed for industrial, consultant, and advanced 
experimenter uses, the reader is encouraged to experiment with 
the principle presented to implement his or her own debugger 
software. Figs. 3, 4, 5 and 6 demonstrate the use of the debugger 
as implemented in the Micro Power System. A similar debugger 
available from Microproducts, Redondo Beach, CA at an as yet 
undetermined price. The Micro Power Debugger supports 4 breaks 
points, 4 16-bit trace addresses, indirect trace addresses, stack dis-1 
play, 128-step trace history, run trace, and single-step modes all- 
tied to an improvediMonitor software package. 

With this sort of software available from after-market suppliers,; 
perhaps the Autostart ROM will really be the sort of blessing that 
Apple intended it to be. 


Fig 1 A 

1000- A5 IE LDA $1 E 

1002- DO 05 BNE SKIP 

1004- 20 00 11 JSR ZERO 

1007- A9 00 LDA #$00 

1009- 4C 00 12 SKIP JMP NEXT 

1100 8D 00 03 ZERO STA $0300 

1200- 38 SEC 

Fig. 1A 

A5 IE DO 05 20 00 11 A9 00 4C 00 12 : Original object 

code. 

SOME DO 05 20 00 11 A9 00 4C 00 12 : First step. 

A5 IE Ott 05 20 00 11 A9 00 4C 00 12 : Second step. 

A5 IE DO 05 mi 00 11 A9 00 4C 00 12 : Third step or. . 

A5 IE DO 05 20 00 11 0Q( 00 4C 0012 : Alternate third 

step. 

Fig. IB 

A5 IE DO 05 20 00 11 A9 00 4C 00 12 : Original object 

code remains 
static. 

Dummy Area 

A5 IE EA 4C xx xx 4C yy yy : (PC)=$1000 

DO 04 EA 4C xx xx 4C yy yy : (PC)=$1002 

Alternative #1 

8D 00 03 4C xx xx 4C yy yy : (PC)=$1100 

Alternative #2 

A9 00 EA 4C xx xx 4C yy yy : (PC)=$1007 

xxxx= Debug 'continue' routine. 

yyyy= Debug PC-modifying branch handling routine. 

Note the change in relative offset of 'BNE' instruction. 

Fig. 1C 


NON YQUR OKIE U im PERFORM JUST LIKE TRE BIG BOVS 


If you’re a businessman who demands ultimate performance from your 
Apple II, then take a look at this outstanding General Ledger Package 
from Small Business Computer Systems (SBCS). 

.. • 6 digit account numbers 

* • 31 character account name. 

features • Ten levels of subtotals — giving you a more detailed income statement and 
balance sheet. 

• Departmentalizing ... up to nine departments. 

• Flexibility — adaptable to any printer and either cash or accural accounting 
methods. 

• You can print the. balance sheet and income statement for the current month, 
current quarter, or any of the previous three quarters. This year’s or last 
year’s totals are also included on the income statement. Or a special report 
that lists the current account balance for selected accounts. 

• Higher number of entries from an external source — as many as 1,000 per 
session. 

• No limit on entries — giving you the opportunity to make your entries as 
many times or as often as you want. 

• With high speed printer routines and other special features of our conver- 
sion, processing performance does not decrease dramatically at the system 
limits. 

• Look at these examples of times required to update the chart and print the 
audit trail. 

With 133 item chart of accounts, 700 postings into 70 regular accounts: 
less than 20 min. 

With 133 item chart of accounts, 1000 postings into 70 regular accounts: 
less than 30 min. 

With 210 item chart of accounts, 1000 postings into 125 regular accounts: 
less than 40 min. 

• Coming early this year — capability to archive up to 2,500 postings. The 
chart of accounts will also be archived to maintain the opening balance for 
the archive period. 

In the final analysis, your financial statements are what this General Ledg- 
er is all about. And with this General Ledger Package you can format your 
own balance sheet and income statement. As well, department financial 
statements may be formated differently. You have complete freedom to 
place titles and headings where you want them, skip lines or pages be- 
tween accounts and generate subtotals and totals throughout the reports 
— up to ten levels if you need them. 


And coming early in 1980, SBCS will 
present the Accounts Payable/Ac- 
counts Receivable Package you have 
been waiting for. 


Just compare these numbers against 
any package on the market today:* 


5 

inch 

8 inch 


disc 

disc 

Vendors or customers 

700 

1,800 

Payable Transactions 

350 

750 

Payable Invoices 

380 

840 

Receivable Transactions 

600 

1,300 

Receivable Invoices 

600 

1,300 


* These are maximum numbers that you can 
put on a disc if you’re using the disc only for 
these respective data files. 


We are an authorized converter for 
Osborne/ McGraw-Hill, providing you 
with business packages that will do 
everything the Osborne General 
Ledger will do in addition to many 
features we have added. 

Call or write: 

Small Business Computer Systems 

4140 Greenwood 
Lincoln, Nebraska 68504 
(402) 467-1878 
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INTRODUCTION 

The Apple II not only displays colorful low-resolution graphics 
but has the capability of creating beautiful hi-resolution displays 
which can be used for graphics design work, architectural design, 
business graphics, game playing and much more. Using Applesoft 
II, the Apple II can draw shapes as easily as it can plot a point or 
draw a line. 

Suppose you are an interior designer and want to design a liv- 
ing room layout complete with furniture to see how the space 
will be filled. You might use the SHAPE DESIGNER to draw 
chairs, overhead lamps, windows, tables, couches and other items 
to be located in the room. These would be saved onto a disk 
under their respective names, e.g., “LAMP”, “TABLE”, 
“COUCH”, “CHAIR”, “WINDOW”, etc., and then assembled 
into a SHAPE TABLE. 

For example: DRAW 3 at 1 39,79 

This command translates into “DRAW SHAPE NUMBER 3 — 
a chair for example - AT THE CENTER OF THE SCREEN”. 
VOILA! A chair appears in the center. 

The same concepts are followed for designing games with 
shapes, adding special shapes to business graphs, etc. Once you 
have that SHAPE TABLE constructed, your imagination is the 
limit!. 

To use the shape concept to the fullest, it is best to first outline 
a program idea and start writing it. Decide how many different 
shapes you will need and refer to them by number. Then use the 
SHAPE DESIGNER to actually draw the shapes you need, save 
them to disk, and assemble them into a SHAPE TABLE. Once 
you have done this and added a few statements to your program, 
you will be ready to draw! (See “How to Use a Shape Table in 
Your Program ”). 

WHAT IS A SHAPE? 

As mentioned, a shape usually takes the form of a common ' 
object — a flower — but it can also consist of irregularly placed 
lines. A shape is a series of dots or lines drawn consecutively in 
The outline or “shape” of an object. It can be drawn on the screen 
with a single command. A shape can be made up of any number 
of dots or lines (lines are more commonly known as “vectors”). 
These vectors can go either up, down, left or right. The APPLE II 
requires that a “vector table” be constructed in memory that de- 
scribes for the computer which way each vector goes and whether 
or not to plot that vector as a line as it moves. The SHAPE DE- 
SIGNER does precisely that. 

A short explanation of vectors is in order. While you are draw- 
ing the shape the first time, each press of a move key draws a sin- 
gle dot on the screen. You should remember that you are pre- 
sently at SCALE=1. At any scale higher than 1, each press of the 
key is, effectively, drawing a line in that direction. A single dot at 
SCALE=1 translates into a 2-dot line at SCALE-2, a 3-dot line at 
SCALE=3, etc. 


SHAPING UP WITH THE APPLE II 

by 

Mark L. Crosby 


In the example below, a programmer has designed a simple 
shape (a square) which has been enlarged to more clearly show 
the “vectors” that make up the body of the shape. The table to 
the right of the shape is a simplified vector table that must be 
constructed by the SHAPE DESIGNER program. 

Vector H Move 

1 

2 

3 / 

4 / 

5 * 

6 * 

7 \ 

8 \ 

9 

10 Ql (no move, end of 

shape 

When given the “DRAW” or “XDRAW” command for this 
shape, the computer starts at point “A” and moves down to point 
“B” without drawing anything on the screen. Then it draws a line 
to the left (vector I=f2). Vectors 3-9 are all drawn as indicated and 
the shape stops at point“B”. The origin of this shape is at its 
center or point “A”. 

When the shape is drawn at a standard scale of “1 ”, the shape 
appears to be a tiny, solid square. When the scale is increased to,' 
say “5”, the dots turn into lines (vectors) and the box is clearly 
distinct with an empty center. By turning the point on or off as 
you draw, you will either draw a line or not draw a line as you 
move. In this manner, you may draw a shape that has disconnec- 
ted lines. In figure 1, vector #1 is a move without drawing. The 
remainder of the vectors all draw lines as they move. 

For most purposes, however, you will not need to know the 
details of generating a vector table because the SHAPE DE- 
SIGNER takes care of all the details. 

GETTING STARTED 

There are three programs which should all be entered and 
saved on one diskette. The MENU controls the other two pro- 
grams. The SHAPE DESIGNER actually permits you to draw a 
shape of your choice then saves it, by name, on the diskette. 
The SHAPE ASSEMBLER builds a shape table from several 
shapes and saves that on any disk of your choosing. These shape 
tables can be used in any other program dealing with shape draw- 
ing by simply loading them under program control, identifying 
their starting location to Applesoft and drawing. You will need 
Applesoft ROM. 

When you have entered all of the programs and saved them on 
one diskette, run the MENU program. 
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To draw a shape, hit “I”. The program will then ask you where 
in main memory you wish to store the shape’s vector table. Be 
sure to select a vacant location that will not interfere with either 
your Hi-Resolution display, your Disk Operating System or 
Applesoft II. Consult your manuals. Usually, when using Apple- 
soft II (ROM), the location $1000 (4096 decimal) is available. 
If you have enough memory, you may use a higher location such 
as $4000 (16384 decimal). You can always look through memory 
to see what space is free. Not much space is required for a single 
shape. An average of 20-50 bytes is about normal. 

Next, decide what your first move will be, but before making 
the move, either turn the point on or off by hitting “P”. Then hit 
the “U”, “D”, “L” Or “R” keys to move the dot in the direction 
you choose. Remember: each move represents a “line” drawn in 
that direction. You may turn the point on or off at any time de- 
pending on your requirements. If you make a mistake hit 
(CTRL)W to “wipe” the screen clear and start over. 

WARNING — Do not move “up” more than once WHILE THE 
POINT IS OFF or your shape will not function properly.. You 
may separate “up” moves with moves in another , unrelated direc- 
tion. If you have the point “on” you may make any number of 
“up ” moves one after the other. 

When you have finished drawing the shape, hit (CTRL)F 
which tells the program you are “finished” drawing. The program 
will display how many bytes of memory space have been used, 
the decimal and hexadecimal starting and ending points of the 
vector table that has been generated and will erase and redraw 
the shape to verify what you have drawn. Hit any key and the 
program will ask you is you want to save the shape. If you hit 
“Y” you will be asked to name the shape. Type in the name and 
hit return. The shape will be saved on the Disk for future use. 
The menu will appear again after that. 

Do not confuse a VECTOR table with a SHAPE table. The 
former is a representation of a single shape, the latter is a table 
with several shapes contained inside such that each shape can be 
drawn separately when needed, (see page 95 Applesoft Program- 
ming Manual). The top of figure 2 shows the construction of a 
shape table, beginning with the total number of shapes, followed 
by relative addresses or locations of each shape, followed by the 
actual shape vectors for each shape. The bottom portion shows a 
completed shape table using one shape. The ASSEMBLER 
creates this table automatically, so you need not be too con- 
cerned with the details at this point. 

For practice, draw several shapes and save each on disk. Then, 
when the menu appears, hit “2” and read the instructions. Hit 
any key and a CATALOG of the disk will appear (hit the space 
bar as necessary to get a complete listing) and then you will be 
asked to enter the names of each shape you wish to assemble into 
the table. After the last name, hit return twice. The program will 
automatically load each shape from the disk, create a SHAPE 
TABLE, and then draw all of the shapes on the screen to verify 
the SHAPE TABLE’S integrity. You may assemble a maximum of 
255 different shapes into one table, but because of space limi- 
tations, the upper limit has been arbitrarily set to 128 shapes. 
You may change “NS” in line #120 as necessary. 

Hit any key and the program will then ask you if you want to 
save the SHAPE TABLE you have just created. If you do, hit “Y” 
and the program will ask you to name the table. Type the name 
and hit return. This SHAPE TABLE will then be saved on your 
disk. The menu will appear after that. 

NOTE: All disk commands specify volume (p so you may insert 
any disk to either save shapes or retrieve them to create shape 
tables. 


HOW TO USE A SHAPE TABLE IN YOUR PROGRAMS 

Remember, you can draw any of the shapes in a SHAPE 
TABLE by using the command “DRAW I AT X, Y”or “XDRAW I 
AT X,Y” where “I” is the number of the shape you want to 
draw and “X” and “Y” are the coordinates of the starting point 
of the shape on the screen. “X’ -0-279, “Y”=0 -191. You should 
execute an “HGR” or “HGR2” before attmepting to do any Hi- 
Resolution plotting. ROT, SCALE, and HCOLOR should all be 
set before attempting to draw a shape. DRAW will draw a shape 
in the color you have chosen. XDRAW will draw in the comple- 
ment only. Two XDRAW commands one after the other will 
draw a shape then erase it while leaving any other background 
intact. (See previously mentioned manual). 

You must include the following statements, or equivalents, 
in your programs before using a SHAPE TABLE: 

0 DEF FN MD(B) = B - INT (B/256) * 256 

1 D$=CHR$(4) 

2 POKE 232, FN MD(B) : POKE 233,B/256 

3 PRINT D$; "BLOAB (NAME OF YOUR SHAPE 
TABLE), A",B 

Line 0 1 defines the “MOD” function available in Integer Ba- 
sic but not found in Applesoft II. 

Line 1 sets D$ equal to a control-D which is required to get 
the attention of the Disk Operating System. 

Line 2 POKES the shape table starting address into a special 
pointer used by Applesoft. “B” is the decimal start- 
ing address in main memory where you wish to load 
your shape table. “B” must be set to some number 
before executing this statement. 

Line 3 loads your shape table from disk into memory start- 
ing at “B”. 



The engineering & graphics people 


LOGIC 

for graphics! 


ANIMATION PACKAGE 
for the APPLE II 

BE CREATIVE with the SubLOGIC A2-3D1 high- 
speed animation package for your Apple. Generate 
scenes or drawings, view them from varying dis- 
tances and angles, or even orbit. 

All you need is 16K RAM and 
the creative urge. Cassette $45, 
or disk $55. See your 
* • ^ jg^~- dealer or order direct 
^ ^ HF M (add $1 .50 shipping). 

Visa & Mastercharge 
accepted. 


We re open 9 to 6, Monday 
thru Friday, central time. 
Give us a call. 


n/jp LOGIC 
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Before you can draw a shape, you must first load the shape 
table and set the pointers as indicated above. Then execute an 
HGR or HGR2 command (the latter for page 2 of hi-resolution 
graphics). With HGR2, you cannot have text at the bottom of the 
screen. 

Then set SCALE to a reasonable starting point — either 1 for 
the original size shape or 2,3,4, etc., for larger sizes. Then set 
ROTation to any number from zero to 63. Actually, you may use 
any number from zero to 255 depending on the SCALE. Forex- 
ample, any ROT from zero to 3 at SCALE 1 will draw the shape 
at zero degrees rotation. You can investigate this at your leisure. 

HCOLOR must be set for any DRAW command but is not 
used for any XDRAW command. DRAW will draw the shape at 
the specified location in the specified color. Keep in mind the 
Apple’s every-other-dot color limitations in the X coordinate dir- 
ection. Certain colors can only be drawn on even X coordinates 
and others on odd coordinates. The XDRAW command will 
take the color/s on the screen and draw their compliments. If 
the screen were totally black, then, it would draw a white shape. 
Immediately drawn again, the shape is drawn in the complement 
of white or black, thereby disappearing. If the screen were filled 
with various colors, each color would be complemented as the 
shape is drawn. White would become black, blue-orange, violet- 
green, etc. 

PRECAUTIONS: 

Remember not to move more than one space upwards while 
the point is off when drawing. Each shape table consists of a cer- 
tain number of shapes. To find out how many shapes you have in 
any particular shape table, first execute the statements in the pre- 
vious section. They type X=PEEK(B). “X” will then be equal to 
the total number of shapes you have available. Trying to draw a 
number higher than ‘‘X” will give you a syntax error and halt 
execution. 

There is an “ONERR GOTO” statement within the SHAPE 
DESIGNER that will cause a restart if any type of error occurs. 
This includes errors of spelling when trying to load shape names 
from a disk. The error handling routines are in lines 3000-3350. 
You may disable these by deleting line 420. 

Certain moves to the right or left or up and down when the 
point is off or on can cause some weird effects and may cause 
your shape to be partially drawn. This can usually be corrected 
by drawing it again being careful not to cross the same point 
twice. Some experimentation will be helpful here. 

When drawing in color, remember that GREEN, VIOLET, 
ORANGE and BLUE can only plot on every other dot along the 
“X” axis. Drawing your shape twice at X,Y, and X+1,Y will fill 
in the missing lines and make your lines “thicker”. WHITE and 
BLACK do not present this problem. 

If you have any questions or suggestions for changes in this 
program or any problems with your particular system configur- 
ation you may write to the author: 

Mark L. Crosby 
1373 “E” Street S.E. 

1 REM HOW TO MODIFY A VAL 

GOLDING PROGRAM FROM 40 
LINES TO 4 

2 REM BY DARRELL ALDRICH 
10 GET A* 

15 IF ASC (A*) < 64 THEN PRINT 

A$ » » GOTO 10 

20 PRINT CHR$ < ASC ( A$ ) + 32 >» 

30 GOTO 10 


\ 

Southwestern Data Systems 

presents 

NEW SOFTWARE BY 
ROGER WAGNER 


APPLE-DOC: This program set is a must to anyone writing or using 
programs in Applesoft! It not only provides valuable information on 
each of your programs, but allows you to change any element through- 
out the listing almost as easily as you would change a single line! With 
APPLE-DOC you can produce a list of every variable in your program 
and the lines each is used on, each line called by a GOTO, GOSUB, etc., 
in fact, every occurance of almost anything! You can rename variables, 
even do local or global replacement editing on your listing. 

DISKETTE OR CASSETTE: $24.95 (14 pgs. documentation) 

(Applesoft only) 

ROGER’S EASEL: What would be the easiest way to put lo-res graphics 
in a program? Probably to be able to just draw it with a sketch program 
and then somehow attach the picture itself to the program for later 
recall. Impossible? Not with ROGER’S EASEL! Create your own lo-res 
pictures with this program set, and then selectively attach them to your 
own Integer or Applesoft programs. Up to 40 pictures (or even text 
pages) can be permanently linked for nearly instantaneous (up to 10 
pictures per second!) recall, to either pg. 1 or 2 of text/graphics display. 
(Easel is in Int., Link prog, is in Int. & A/S) 

CASETTE OR DISKETTE: $16.95 (10 pgs. documentation) 

SHAPE MASTER: Not just ‘another shape generator’. This is an Apple- 
soft shape table editor as well. Create a whole library of shape tables — 
you can assemble individual tables from parts of others. Insert or delete 
shapes from a table. Edit the shape while in any scale or rotation para- 
meter. When done, SHAPE MASTER will effortlessly link that table to 
any program of your choice with just a few keystrokes. 

DISKETTE ONLY: $19.95 (32K Applesoft required) 

THE CORRESPONDENT: A multi-purpose program! Use it to write 
letters to other Apple users right on the diskette as the media, or output 
the text to a printer (40 to 80 columns). While not a true word processor, 
it does have many features like removing or inserting characters or 
complete lines. It has a very fast FIND function that makes it ideal as a 
free-form database for storing notes, phone lists, or anything where 
report generation is not essential. There are also provisions for access- 
ing random or sequential text files with THE CORRESPONDENT. 
Screen display scrolls in both directions, and a special routine is includ- 
ed to put this feature in your own programs! 

DISKETTE ONLY: $19.95 (32 Applesoft ROM or 48K • 

Applesoft RAM required) 

PROGRAMMER’S UTILITY PACK: A collection of many useful pro- 
grams to aid in programming the Apple II. This set includes: Renumber- 
Applesoft & Int.: Printer output of old/new lines, non-destructive to 
mach. code within BASIC listing. Append-Applesoft & Int.: Easily join 
one program or section thereof to another. Address/Hex Converter: 
Converts all of the Apple’s address formats including high- and low- 
order bytes for pointers. Line Find-Applesoft & Int.: Find the location of 
any BASIC line in memory for repairing garbaged programs, or insert- 
ing illegal statements like HIMEM:, CLR directly into listings. And there 
are many more! The extensive (14 pgs.) documentation alone is worth 
the price! It includes an in-depth explanation of the internal workings of 
Integer BASIC and Applesoft; to allow you to do things you .never 
thought possible on your APPLE! 

DISKETTE OR CASSETTE: $16.95 



(California residents add 6% Sales Tax) 

Available from your local computer store or: 

Southwestern Data Systems 
P.O. Box 582-1 
Santee, CA 92071 
(714) 562-3670 

(Dealer inquiries invited) 
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3LIST 


ILIST 


10 REM H - SHAPE DESIGNER - " 

20 REM " - COPYRIGHT 1979 - " 

30 REM “RESEARCH ASSOCIATES" 

40 REM " - MARK L . CROSBY - ■ 

50 REM 

60 TEXT { NORMAL J HOME 
70 B* = CHR* (4) 

80 POKE - 16303*0 
90 VTAB 10 J HTAB 111 PRINT " - S 
HAPE DESIGNER 

100 PRINT J PRINT • 1 - DRAW 

A SHAPE AND SAVE IT" t PRINT 
" 2 - ASSEMBLE SHAPES IN 

TO A TABLE": PRINT " 3 - 

END THE PROGRAM" 

110 PRINT : PRINT " HIT KEY 0 
F YOUR CHOICE " * 

120 GET A$: NORMAL 
130 A » UAL <A *>J ON A GOTO 140* 
150*1601 GOTO 120 
140 GOSUB 170 : PRINT : PRINT D$* 
"RUN SHAPER" : END 
150 GOSUB 170: PRINT : PRINT D$* 
"RUN ASSEMBLER": END 
160 NORMAL : HOME : END 
170 PRINT : PRINT l INVERSE : HTAB 
4: PRINT "ONE MOMENT PLEASE" 

: NORMAL : RETURN 



10 TEXT : HOME : 

20 INVERSE : FOR I = 1 TO 24: PRINT 

»» 

“tl NEXT I 


30 

VTAB 2: HTAB 9 


40 

PRINT "WELCOME TO " CHR* 

4 )" SHAPING UP" CHR* (34) 

(3 

50 

PRINT : PRINT - purpose:-* 


60 

POKE 32*11 : POKE 34,1 


70 

HTAB 12 


80 

PRINT "TO FACILITATE DRAWING 
SHAPES* " * 

90 

PRINT "AND THE CREATION OF 
(34 >“SHAPE“: 

" CHR* 

10O 

PRINT "TABLES" CHR* (34)" 

EA 


CH CAPABLE OF CON-" : PRINT " 
TAINING MANY SHAPES. THESE" 


110 PRINT "FINISHED TABLES CAN E 
ASILY" 

120 PRINT "BE INSERTED INTO OTHE 
R PRO-" 

130 PRINT “GRAMS." 

140 PRINT 

150 PRINT "ALL SHAPES AND TABLES 
CAN BE" 

for APPLE II* 


For the Serious Business or Home User: And Just for Fun: 

MICRO MEMO TRANQUILITY BASE 


MICRO MEMO is the first sophisticated ‘‘Desk Calendar" program to make 
good use of your computer’s power. 

★ Micro Memo includes one time, weekly, monthly, semi-annual and annual 
reminders. 


★ Monthly reminders may be for fixed or "floating" dates (ex. 1 st Saturday of 
every month). 

★ Each reminder allows choice of one week, 2 week or 1 month advance 
notice — reminds you ahead of time to prepare for meetings, purchase tickets, 
make reservations, etc. 

★ Micro Memo includes "shorthand" for fast memo entry, greater capacity. 

★ Micro Memo will display or print any day’s or week’s reminders. 

★ Micro Memo is a "perpetual" calendar— automatically creates new months 
with all appropriate memos (birthdays, anniversaries, monthly meetings, etc.) as 
past months are dropped — system holds full year's reminders on one disk. 

★ Micro Memo "knows” most major holidays. 

★ Supports Mountain Hardware clock (optional). 


★ "Bomb Proof" menu driven command and data entry. 

★ Requires 48K, disk, RAM or ROM Applesoft. 


$ 39 95 


STONEWARE 

Microcomputer Software 
P.O. Box 7218, Berkeley, CA 94707 
(415)548-3763 



$ 24 " 

TRANQUILITY BASE is a fast high resolution Lunar Lander game by Bill Budge, creator of 
Apple's "Penny Arcade." TRANQUILITY BASE is just like the popular arcade game, including 
multiple moonscapes, craft rotation, and zoom in for a close-up view as you approach the 
Lunar surface. 

TRANQUILITY BASE requires 32K and disk. 

Available at your favorite computer store or direct from STONEWARE (add S2 
shipping & handling; Calif, residents add sales tax. Visa & MasterCharge 
accepted, no C.O.D.’s). 

DEALER INQUIRIES INVITED 
-“ Apple II is a Trademark of Apple Computer, Inc. 
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160 PRINT "STORED AND RETRIEVED 
BY NAME." 

170 POKE 32*01 POKE 33*401 POKE 
34*0 

180 PRINT 1 PRINT “ 


* 

190 POKE 32*1 

200 PRINT i PRINT "ONE USE IS IN 
GAMES THAT USE MOVING" 

210 PRINT "OBJECTS ACROSS THE SC 
REEN. ANOTHER" 

220 PRINT "MIGHT BE ARCHITECTURA 
L MODELING." 

230 PRINT 1 PRINT 1 HTAB 51 PRINT 
“HIT ANY KEY TO CONTINUE..." 

» 

240 GET A$ 

250 VTAB 2. HTAB 11 POKE 32*0 
260 PRINT "DURING THE NEXT SECTI 
ON* A MENU WILL" 

270 PRINT ” GIVE YOU THE OPPORTU 
NITY TO DRAW A " 

280 PRINT " SHAPE AND THEN SAVE 
IT ON A DISK. “* 

290 PRINT * 

“* 

300 PRINT 8 AFTER SAVING THE VAR 
IOUS SHAPES YOU "* 

310 PRINT " REQUIRE* YOU CAN THE 
N ASSEMBLE THOSE "» 

320 PRINT " OF YOUR CHOICE INTO 
A SHAPE TABLE THAT" 

330 PRINT " CAN BE USED IN ANY 0 
THER PROGRAM JUST" 

340 PRINT " BY LOADING IT AND PE 
RFORMING 2 POKES." 

350 FOR I » 1 TO 10 
360 PRINT " 

" * 

370 NEXT I 

380 PRINT 1 HTAB 32 

390 GET At 

400 NORMAL { POKE 32*0 1 POKE 33* 
40 

410 FOR I = 1 TO 241 CALL - 922 
1 NEXT 

420 ONERR GOTO 3000 
430 B* = CHRt <4)1 PRINT D$*"MON 
I*G*C"1 PRINT D$* "NOMQN C" 1 
HOME 1 DEF FN MD< B ) = B - 
INT < B / 256) * 256 
440 DIM D( 3 ) * LLL( 4 ) * H( 4 ) 1 HEX$ = 

" 0 123456789ABCDEF" 

450 HOME 1 VTAB 31 HTAB 21 PRINT 
"ENTER THE STARTING ADDRESS" 

1 HTAB 21 PRINT “OF SHAPE IN 
HEX 1 " * 
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460 INPUT LOCt 
470 HOME 1 VTAB 2 
480 PRINT 8 POSSIBLE COMM 

ANDS ..." 

490 VTAB 81 HTAB 31 PRINT "CTRL- 
F WHEN FINISHED" 1 HTAB 31 
PRINT "CTRL-W TO WIPE CL 
EAN AND START OVER”! HTAB 8! 

PRINT "U - TO MOVE UP"! HTAB 
81 PRINT "D - TO MOVE, DOWN" 1 
HTAB 8! PRINT “L - TO MOVE 
LEFT”! HTAB 81 PRINT "R - TO 
MOVE RIGHT" 

500 HTAB 81 PRINT "P - POINT ON/ 
OFF"! VTAB 18! PRINT “ H 
IT ANY KEY TO CONTINUE "*1 GET 
At 1 HGR 1 HOME 1 NORMAL 
510 PFLAG = 0 
520 YCQ = 791XC0 = 139 
530 QLBY = 7910DX = 139 
540 HCOLOR= 3! GOSUB 910 
550 FOR I = 1 TO 41H< I ) » ASC < 

MIBt < LOCt * 1*1)) - 481 IF H 
< I ) > 9 THEN H( I ) = H< I ) - 7 

560 NEXT I 

570 LOG = 01 FOR I = 1 TO 31L0C * 

LOC + H( I )1L0C = LOC # 161 NEXT 
I1L0C * LOC + H( 4 ) 1LC1 = LOC 


FASTEST SHUFFLE AROUND! 

Let's face it. A BASIC program is a slow way to 
rearrange a disk file. Try it Take a 1000 name mailing 
list. That will just about fill up an Apple diskette. Now 
sort it — say alphabetically by name. How long did it 
take? Six hours? LONGER? That’s painful! 

There’s a better way. With it you can rearrange a 
1000-name disk file of 100-character fixed-length re- 
cords in less than ten minutes. And you can specify 
up to ten different key fields and almost any length re- 
cord. It works on an * Apple II, an * Apple II plus, an 
Apple with the new language system, and even with 
files on the Sorrento Valley Associates 8 inch disk 
drives. On top of all this it is easy to use and requires 
only one disk drive on your system. What is it? 

DATACOPE SINGLE DISK SORT 

by C. V. Duplissey 

Available now for just $49.95, including a diskette 
with programs and full-size comprehensive manual. 
For the name and address of your nearest Datacope 
Software dealer, call 1-501-666-6561 or write: 
Datacope 

P.O. Box 55053, Hillcrest Station 
Little Rock, Arkansas 72205 

* Apple II and Apple II plus are registered trademarks of 
Apple Computer, Inc., Cupertino, California. 
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580 

VTAB 

A 

22: 

PRINT 

“BYTES USED:” 

590 

9 

HTAB 

33: 

PRINT 

"ON INVERSE 


: PRINT ’ 

'OFF" : 

NORMAL 

600 

VTAB 

24: 

PRINT 

••commands: ct 


RL-F , CTRL-W, U,D,L,R,P“?: VTAB 


1 

610 GET A* 

620 IF A* = "U" THEN 700 

630 IF A* = "D" THEN 740 

640 IF A* = “R" THEN 780 

650 IF A* = "L“ THEN 820 

660 IF A* = "P" THEN 860 

670 IF ASC <A*> = 6 THEN 900 

680 IF ASC <A*> = 23 THEN 560 

690 GOTO 610 

700 REM UP 

710 YCO = OLDY - 11A = 4 
720 IF PFLAG = 0 THEN A - 0 
730 GQSUB 1010: GOSUB 910 J GOTO 
610 

740 REM DOWN 
750 YCO = OLDY + 11A = 6 
760 IF PFLAG = 0 THEN A = 2 
770 GOSUB 1010 J GOSUB 910 J GOTO 
610 

780 REM RIGHT 
790 XCO = ODX + 1JA = 5 
800 IF PFLAG = 0 THEN A = 1 
810 GOSUB 1010 i GOSUB 9101 GOTO 
610 

820 REM LEFT 
830 XCO = ODX - 1JA * 7 
840 IF PFLAG = 0 THEN A = 3 
850 GOSUB lOlOi GOSUB 910J GOTO 
610 

860 PFLAG = NOT PFLAG 
870 IF PFLAG = 0 THEN 890 
880 VTAB 22J HTAB 331 INVERSE l PRINT 
“ON ” i X NORMAL X PRINT " OFF” 

J VTAB It GOTO 610 

890 VTAB 221 HTAB 33: NORMAL : PRINT 
“ON n fX INVERSE : PRINT "OFF 



": NORMAL : VTAB 

A 

i: 

GOTO 61 

900 

V 

GOTO 1150 



910 

IF YCO < 0 THEN YCO = 

0 

920 

IF YCO > 159 THEN 

YCO 

= 159 

930 

IF XCO < 0 THEN XCO = 

0 

940 

IF XCO > 279 THEN 

XCO 

= 279 

950 

IF PGLAG = 0 THEN 

980 


960 

HFLOT XCO, YCO 



970 

GOTO 1000 



980 

HCOLOR- o: HPLOT 

ODX, 

OLDY 

990 

HCOLOR- 3: HPLOT 

XCO, 

YCO 

1000 

ODX = XCO : OLDY = 

yco: 

RETURN 
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ioio f = o :d = d + i : d< d > « a: if 

D < 3 THEN RETURN 
1020 IF D< 3 ) < >0 THEN 1040 

1030 F = i: GOTO 1060 
1040 IF D< 3 ) < 4 THEN 1060 
1050 Q = D(3):D<3) = 0 
1060 Z=D<1) + D<2)*8 + B<3>* 

64 

1070 BYTE = BYTE + i: VTAB 22: HTAB 
13: PRINT BYTE: VTAB 1 

1080 poke loc»z:loc = LOC + 1 

1090 IF F = 1 THEN 1110 
1100 IF Q = 0 THEN 1140 
1110 IF D< 2 ) < > 0 THEN 1130 

1120 D( i > = o:b<2> = q:d<3) = o:q 
= o:d = 2: RETURN 
1130 d< i > = q:d<2) = o:d<3) = o:q 
= o:d = l: RETURN 

1140 FOR I = 1 TO 3:D(I) = 0: NEXT 
i:d = o: RETURN 

1150 REM CTRL F GOES TO HERE 
1160 Z = D< 1) + D(2) * 8 + D<3> * 

64: POKE LOC,Z 
1170 IF Z = 0 THEN 1220 
1180 LOC = LOC + i: POKE L0C,0 
1190 LOC = LOC + i: POKE L0C»0 
1200 VTAB 22: HTAB 30 : CALL - 9 
58 

1210 VTAB 23t HTAB 1 

1220 PRINT “VECTOR TABLE: FROM " 

?LC1 f ” TO ”JLOC:C = LOC 
1230 PRINT "HEX! FROM "FLOCtf" T 
0 "» 

1240 FOR I = 0 TO 4$LLL<I) = 0: NEXT 
I 


1250 FOR I = 3 TO 0 STEP - 1 
1260 IF LOC < 16 t I THEN 1280 
1270 LLL< I ) = LLL< I ) + i:LOC = LO 
C - 16 t i: GOTO 1260 
1280 NEXT i:LOC$ = 

1290 FOR I = 3 TO 0 STEP - i: GOSUB 
1300 : NEXT i: PRINT : GOTO 1 
340 

1300 FOR J * 0 TO 15 
1310 IF LLL< I ) = J THEN 
( HEX*, J + 1,1 )f 
1320 NEXT J 
1330 RETURN 
1340 REM DRAW SECTION 
1350 HGR : ROT= 0 


PRINT MID* 


1360 B = LC1 - 4 

1370 POKE 232, FN MD( B >: POKE 23 
3,B / 256: POKE B»i: POKE B + 
1,0: POKE B + 2,4: POKE B + 


3,0 

1380 X = 30JY = 79: FOR SC = 1 TO 
3: SCALE 2 sc: DRAW 1 AT x»y: 
X = X + 50 : NEXT SC 
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1390 INVERSE I VTAB 241 PRINT " 

HIT ANY KEY TO CONTIN 
UE ♦ ♦ . -it HTAB 34 

1400 NORMAL 1 GET A$ 

1410 HOME 1 VTAB 23 
1420 PRINT "BO YOU WANT TO SAVE 
THIS” 1 PRINT “SHAPE? < Y OR N 
) "*1 GET A$1 IF A$ = ” Y" THEN 
1440 

1430 GOTO 1490 
1440 HOME t VTAB 23 
1450 PRINT "NAME OF SHAPE TABLE 1 
"»1 INPUT SHAPE $ 

1460 IF SHAPE'* = "" THEN 1410 
1470 PRINT D$» "BSAVE " ? SHAPE* i " t 
A" ?LClf " jL" 1C ~ LCll’SVO" 

1480 PRINT D$? "LOCK " 1SHAF'E$?"»V 
0" 

1490 1 PRINT 1 HOME 
1500 PRINT D$» "RUN MENU" 

1510 END 

3000 A = PEEK (222) IB = PEEK (2 
18) i PEEK (219) # 2561 REM 
A IS ERROR CODE AND B IS L 
INE * WHERE ERROR OCCURRED. 
3010 IF ft < 4 OR A > 12 THEN 333 
01 REM CONTROLLED SHUTDOWN 
3020 C = A - 31 REM C=1 THROUGH 
9 » REPRESENTING ERROR CODES 4 
THROUGH 12 

3030 ON C GOTO 3060 *3090 »31 10 y 31 
70 y 3190 r 3220 r 3250 r 3280 y 3310 
3040 VTAB 211 INVERSE 1 CALL - 
9581 RETURN 

3050 FOR J = 1 TO 31 PRINT CHR$ 
(7)11 NEXT J1 FOR J = 1 TO 3 
5001 NEXT l RETURN 
3060 REM ERROR $41 WRITE PROTEC 

T 

3070 GOSUB 30401 PRINT "DISK IS 
WRITE PROTECTED M " 1 PRINT * 
CHANGE DISKS. ♦ . 

1 NORMAL 1 GOSUB 3050 
3080 GOTO 640 

3090 REM ERROR *51 END OF DATA* 

SHOULDN'T HAPPEN 

3100 GOTO 33301 REM CONTROLLED 


3150 GOSUB 30401 PRINT " " 1 SHAPE 
$( I )1" NOT ON THIS DISK ! " 1 
NORMAL 1 GOSUB 3050 
3160 GOTO 270 

3170 REM ERROR *71 VOLUME MISMA 

TCH» SHOULDN'T HAPPEN 
3180 GOTO 33301 REM CONTROLLED 

SHUTDOWN 

3190 REM ERROR *81 DISK I/O 

3200 GOSUB 30401 PRINT " DISK ER 

ROR - USE NEW DISK !! “1 NORMAL 
1 GOSUB 3050 

3210 GOTO 33301 REM CONTROLLED 

SHUTDOWN 

3220 REM ERROR *91 DISK FULL 

3230 GOSUB 30401 PRINT " DISK IS 

FULL r USE ANOTHER ! "1 NORMAL 
1 GOSUB 3050 
3240 GOTO 640 

3250 REM ERROR *101 FILE LOCKED 

» WHICH MEANS TABLE NAME IS 
BEING SAVED THAT ALREADY EXI 
STS ON THE DISK. 

3260 GOSUB 30401 PRINT " YOU ALR 
EADY HAVE A "1SHAPE$1 PRINT 
■ TABLE ON THIS DISK "1 NORMAL 
1 GOSUB 3050 
3270 GOTO 640 


THE 



capability for less ... But 
you can buy less for more. 


SHUTDOWN 

3110 REM ERROR *61 FILE NOT FOU 
ND 

3120 IF B = 440 THEN 31501 REM 
ELSE "MENU" IS BEING RUN. 
3130 GOSUB 30401 PRINT " MENU IS 
NOT ON THIS DISK ! "1 PRINT 
“ PROGRAM WILL TERMINATE... 
"1 NORMAL 1 GOSUB 3050 
3140 GOTO 33301 REM CONTROLLED 
SHUTDOWN 


MPI presents the perfect answer to your inflation-riddled printer budget. THE MODEL 88T DOT 
MATRIX PRINTER. The first in a series of new full-capability low-cost printers designed specifically 
for the general use computer market. The Model 88T is a fully featured printer with a dual 
tractor/pressure-roll paper feed system and a serial or parallel interface. The tractor paper 
feed system provides the precision required to handle multi copy fanfold forms, ranging in 
width from 1 inch to 9.5 inches. For those applications where paper costs are important, the 
pressure-roll feed can be used with 8.5 inch roll paper. A long-life ribbon cartridge gives crisp, 
clean print without messy ribbon changing. The microprocessor controlled interface has 80, 96 
or 132 column formating capability while printing upper and lower case characters bi- 
directionally at 100 characters per second. 

With all of these features, plus quality construction, continuous duty print head and attractive 
styling, the Model 88T would easily sell at the competition's "under $1000" (999”) tag. But we 
are offering it for only $749,- this should make you happy and several hundred dollars richer. 

Write for complete specifications and pricing information. 


1160 Barbara Drive, Vista, CA 92083 • (714)724-0210/744-9595 


VITEK 
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3280 REM ERROR *11 : COMMAND SYN 
TAX* WHICH MEANS THAT FILE I 
S BEING SAVED THAT BEGINS UI 
TH A NUMBER* ETC. 

3290 GOSUB 3040 J PRINT " YOU MUS 
T START NAME WITH A LETTER A 
-2 ”il NORMAL t GOSUB 3050 
3300 GOTO 640 

3310 REM ERROR *12J NO FILE BUF 
FERS* SHOULDN'T HAPPEN 
3330 REM CONTROLLED SHUTDOWN 
3340 TEXT *. HOME : NORMAL l PRINT 
" PROGRAM TERMINATED DUE TO“ 

: PRINT ■ ERROR "A" LINE *"B 

M 

3350 END 
3LIST 

10 REM - SHAPE DESIGNER - 

20 REM COPYRIGHT 1979 

30 REM RESEARCH ASSOCIATES 
40 REM ALL RIGHTS RESERVED 
50 REM 

60 REM ASSEMBLER MODULE 

70 REM 

80 POKE 74* PEEK (76K POKE 75* PE 
< 77 ) - 8: CLEAR 

90 M a 150 - PEEK (77K H = 169:S 

l * isi:ll = 163:h = h - m:s 

= i:K = 256: I = - 384 :n = 

- 300:G = - 198: IF H < 12 

8 THEN 110 

ioo s * - i:h = k - h:ptch = o: if 

PEEK (977) = 191 THEN PTCH = 
189 

no sa » s * k * h + sl + ptch:la 

=S*K*H+LL+ PTCH 
120 TEXT : HOME :NS = 128: DIM S 
HAPE*( NS ) 

130 DEF FN MD(B) = B - INT ( B / 
256 ) * 256 

140 ONERR GOTO 1000 
150 D$ = CHR$ (4) 

160 PRINT B* * "MON I *0*C” : PRINT D 
* * "NOMON C M : HOME 
170 REM " ASSEMBLER " 

180 HOME : VTAB AX HTAB 1 
190 PRINT "THIS PROGRAM WILL ASS 
EMBLE PREVIOUSLY” 

200 PRINT "SAVED SHAPES INTO A M 
ULTI-SHAPE SHAPE" 

210 PRINT “TABLE THAT CAN BE ACC 
ESSED THROUGH” 

220 PRINT "APPLESOFT II OR PROGR 
AMMERS AID” 

230 PRINT CHR* <34)"DRAW” CHR$ 
(34)” COMMANDS.” 


240 PRINT : PRINT : PRINT "A CAT 
ALOG WILL FOLLOW. ENTER NAM 
E OF SHAPE OR HIT RETURN 
TO FINISH." 

250 PRINT : PRINT "YOU MAY ASSEM 
BLE UP TO " * NS » " SHAPES." 

260 PRINT : PRINT "HIT ANY KEY T 
0 CONTINUE ”*: GET A$ 

270 HOME 

290 FOR I = 1 TO NS 
300 PRINT "NAME OF SHAPE *” *1*": 
" » : INPUT SHAPE$( I ) 

310 IF SHAPED I) = "" THEN 340 
320 NEXT I 

330 GOTO 350 

340 NUM = 1-1 

350 REM ASSEMBLER SECTION 
360 HOME : PRINT "STARTING LOCAT 
ION ASSUMED TO BE": PRINT "2 
4576 DECIMAL." :START = 24576 
370 IF START > 38000 THEN PRINT 
"TOO HIGH FOR J = 1 TO 3 
000 : NEXT : GOTO 360 
380 POKE START* NUM : POKE START + 

1 * 0 :b = start: poke 232 * fn 

MB< B ) : POKE 233*B / 256:B = 

0 

390 ADR = START 4 21 REM START 
OF SHAPE ADDRESSES 
400 SH * ADR + (2 * NUM ) : REM ST 
ART OF FIRST SHAPE 
410 PRINT 

420 FOR I = 1 TO NUM 
430 PRINT "LOADING "*SHAPE$(I> 
440 PRINT D$ * " BLOAD "*SHAPE$(I>» 
" *A"*SH: REM LOAD SHAPE BE 
GINNING AT "SH" 

450 LN = PEEK ( LA > 4 256 * PEEK 
(LA 4 1): REM SHAPE LENGTH 
FROM DOS 

460 B = SH - START: REM ABSOLUT 
E ADDRESS FOR SHAPE "I" MEA 
SURED FROM “START" (0) 

470 POKE ADR* FN MD( B ) : REM POK 
E ADR * B MOD 256 IN INTEGER B 
ASIC 

480 POKE ADR 4 1*B / 256 
490 B = 0 

500 ADR = ADR 4 2: REM INCREMEN 
T ADDRESS TABLE FOR NEXT SH 
APE 

510 SH = SH + LN: REM NEXT SHAP 
E START LOCATION 
520 NEXT I 

530 REM DRAW SHAPES ON SCREEN 
TO VERIFY 

540 ROT= 0: HCQLOR= 3: HGR 
550 VTAB 22: HTAB 6: PRINT "SCAL 
E=l" * : HTAB 26: PRINT "SCALE 
=4”* 
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560 INVERSE 

570 Y x 79 1 XI = 55:X2 * 190 
580 FOR I = 1 TO NUM: VTAB 24 J HTAB 
IT CALL - 868 l HTAB 20 - < LEN 
( SHAPE$< I ) ) / 2 )t PRINT 5HAP 
E$< 1)5 

590 SCALE= 11 XDRAW I AT XI, YJ SCALE= 
41 XDRAW I AT X2,Y 
600 FOR J = 1 TO 2000 l NEXT J 
610 SCALE= lJ XDRAW I AT XI, Yi SCALE 
41 XDRAW I AT X2,Y 
620 NEXT I 
630 NORMAL 

640 HOME i PRINT "START: "i START 

i" length: b 5(sh - i) - s 

TART 

650 PRINT 

660 FOR I x 1 TO NUM: PRINT If'- 
“ »SHAPE$< I ), : NEXT i: PRINT 
: PRINT : PRINT "DO YOU WANT 
TO SAVE THIS": PRINT "SHAPE 
TABLE ? < Y OR N ) ” » : POKE 1 
6303,0 : GET A$** IF A$ = "Y" THEN 
680 

665 IF A$ < > "N" THEN 640 

670 GOTO 730 

680 : PRINT : PRINT : PRINT "TYPE 
THE TABLE'S NAME: ”5 
690 INPUT SHAPES 
700 IF SHAPES = THEN 660 
710 PRINT D$> "BSAVE " 5 SHAPES 5" , A 
" 5 START »" ,L" 5< SH - 1) - STAR 
T5 " , VO" 

720 PRINT DS 5 " LOCK " 5 SHAPES 5 " ,V0 

It 

730 PRINT : HOME 

740 PRINT DS » " RUN MENU" 

1000 A = PEEK <222>:B = PEEK <2 
18) + PEEK (219) * 256: REM 
A IS ERROR CODE AND B IS LI 
NE # WHERE ERROR OCCURRED* 

1010 IF A < 4 OR A > 12 THEN 200 
0: REM CONTROLLED SHUTDOWN 
1020 C = A - 3: REM C=1 THROUGH 
9, REPRESENTING ERROR CODES 4 
THROUGH 12 

1030 ON C GOTO 1100,1200,1300,14 
00 ,1500 ,1600 , 1700 , 1800 , 1900 
1050 VTAB 21 ** INVERSE : CALL - 
958: RETURN 

1070 FOR J = 1 TO 3: PRINT CHRS 
(7)!t NEXT J: FOR J - 1 TO 3 
50 o: NEXT : RETURN 
1100 REM ERROR #4: WRITE PROTEC 
T 

1110 GOSUB 1050 : PRINT “DISK IS 
WRITE PROTECTED !!": PRINT " 
CHANGE DISKS**, 

: NORMAL : GOSUB 1070 


1120 GOTO 640 

1200 REM ERROR *5: END OF DATA, 
SHOULDN'T HAPPEN 

1210 GOTO 2000 : REM CONTROLLED 

SHUTDOWN 

1300 REM ERROR *6: FILE NOT FOUN 
D 

1310 IF B = 440 THEN 1350 : REM 
ELSE "MENU" IS BEING RUN* 

1320 GOSUB 1050 : PRINT " MENU IS 
NOT ON THIS DISK ! ": PRINT 
" PROGRAM WILL TERMINATE... 

-: NORMAL : GOSUB 1070 
1330 GOTO 2000: REM CONTROLLED 

SHUTDOWN 

1350 GOSUB 1050 : PRINT " " f SHAPE 
$( I ) 5 " NOT ON THIS DISK ! " : 
NORMAL : GOSUB 1070 
1360 GOTO 270 

1400 REM ERROR *7: VOLUME MISMAT 

CH, SHOULDN'T HAPPEN 
1410 GOTO 2000 : REM CONTROLLED 

SHUTDOWN 

1500 REM ERROR *8:iHSK I/O 
1510 GOSUB 1050 : PRINT " DISK ER 

ROR - USE NEW DISK !! ": NORMAL 
: GOSUB 1070 

1520 GOTO 2000 : REM CONTROLLED 

SHUTDOWN 

1600 REM ERROR #9: DISK FULL 
1610 GOSUB 1050 : PRINT "DISK IS 

FULL, USE ANOTHER ! **: NORMAL 
: GOSUB 1070 
1620 GOTO 640 

1700 REM ERROR *10 ‘.FILE LOCKED, 
WHICH MEANS TABLE NAME IS B 
EING SAVED THAT ALREADY EXIS 
TS ON THE DISK. 

1710 GOSUB 1050: PRINT " YOU ALR 
EADY HAVE A "5SHAPE*: PRINT 
” TABLE ON THIS BISK " : NORMAL 
: GOSUB 1070 
1720 GOTO 640 

1800 REM ERROR *11 : COMMAND SYNT 
A, WHICH MEANS THAT FILE IS 
BEING SAVED THAT BEGINS WITH 
A NUMBER, ETC. 

1810 GOSUB 1050 : PRINT " YOU MUS 
T START NAME WITH A LETTER A 
-Z "it NORMAL : GOSUB 1070 
1820 GOTO 640 

1900 REM ERROR *12:N0 FILE BUFF 
ERS, SHOULDN'T HAPPEN 
|1910 GOTO 2000: REM CONTROLLED 
SHUTDOWN 

'2000 REM CONTROLLED SHUTDOWN 
2010 TEXT : HOME : NORMAL : PRINT 
" PROGRAM TERMINATED DUE TO" 

: PRINT " ERROR "A" LINE *"B 
2020 END 
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The disk booting process is done in three stages. Stage 1 is 
done by the code on the disk controller card located at CnOO 
(where n is the slot of your disk controller). This reads in track 
sector 0 (0, 0) from the diskette. This information is scrambled 
due to code space limitations on the boot PROM. 

The very last 2 bytes of sector (0, 0) are in normal format. 
They are used as parameters to the second stage boot routine. Af- 
ter this CODE is loaded into page 3 (300-3FF Hex), the disk con- 
troller software then jumps to location $301. The code at location 
$301 performs the second stage boot. 


then gets stored into a buffer located somewhere around $BAAA 
to $BB00. An ADDRESS MARK can be broken down into the 
following: 

1. SYNC NYBBLE — This is a mark on the diskette which marks 
the beginning of the address mark. 

2. Two special nybbles ($D5, $AA) are used to check for proper 
sync. 

3. MARK TYPE NYBBLE — ($B5) follows this special sync in- 
formation. 


The SECOND STAGE BOOT reads in from disk, sectors (0, 6)’ 
to (0, n) where n is specified by the last byte of sector (0, 0). The 
last byte of sector (0, 0) is equal to N*8. So to find out how 
many sectors to load, we divide this byte by 8. Normally, a value 
of $48 is assigned to this byte, which is equal to 9 sectors. Tracks 
(0, 2) through (0, 9) on the diskette contain the code for the 
RWTS (Read Write Track Sector) routines which get read by the 
second level boot routine. 

The second to the last byte in (0, 0) contains the page number 
minus one of where the code is located that boots in the rest of 
the DOS. Normally, this byte is a $B6 for a 48K Apple system. 
This means that the second stage boot routine will jump to mem- 
ory location $B700. This code, which gets loaded into $B700, is 
located on (0, 1) on the diskette. The second stage boot procedure 
can be modified by the user to put substitute code for the RWTS, 
although this is risky unless you know what you are doing. 

The THIRD STAGE BOOT is DOS defined and we can change 
it whenever we want. Normal APPLE DOS builds a special table 
called the I.O. B. This table is read by the RWTS routines which 
specify desired TRACK/SECTOR, DRIVE, READ/WRITE 
MODE, SLOT and other important parameters needed to operate 
the disk. Some description of this I.O.B. is described in the APPLE 
II D.O.S. 3.2 manual. Finally it jumps to 9D84 at which point 
DOS takes over (for.48K only). 

The disk controller card collects 5 bits at a time from the disk- 
ette and passes it to the computer. This 5 bit chunk of data is a 
nybble. set of routines called DOS core routines are located 
from B800to BC77 (in the RWTS). These routines convert norr 
mal data to nybblized format & vice versa. 

Since a nybble has five bits of data, there are 32 different data 
nybbles. Two specified nybbles ($D5 & $AA) are NOT data nyb- 
bles. These nybbles are used to format the diskette. 


4. MARK INFORMATION — Track, sector, volume number of 
this location. 

5. CHECKSUM — An error detecting nybble which checks for 
possible bit errors. 

6. END MARK — Marks the end of the address mark block of 
data. 

THE DATA MARK is where 256 bits of data are kept. This ac- 
counts for approximately 430 nybbles of data. 


The PAGINATOR™ for APPLE II® 

DOS 

Does your 3 2 
memory use r 
look like 

THIS? HIRES 

user 


.PAGINATOR is a plug-in hardware mod. 
.Includes instructions and software listings. 
.Put a HIRES page 1 in each 16K of RAM. 
.Use HIRES page 1 with Applesoft in RAM. 
.Put DOS 3.2 where YOU want it to be. 



A sector consists of 2 parts: An address mark and a data mark. 
The address mark contains addressing information like track, sec- 
tor, volume number and sync data. The DATA mark is the data 
sector where the disk data is actually stored. Each data sector has 
430 nybbles which correspond to the 256 data bytes which get 
stored on the diskette. 

To write a sector, we must fust PRE-NYBBLIZE our data into 
a form where it gets stored onto the diskette, the RWTS routines 
automatically do this so we never have to worry about this. Each 
chunk is then indexed by a table located at $BC9A in RAM. It 


.PRICE $34.95+ $2.00shipping/handling. 
.North Carolina residents add 4% sales tax. 

RFC/SIRIUS 

212 Westbrook Drive, Raleigh, NC 27609 
Apple II is a trademark of Apple Computer Inc. 
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CONVERTING BRAND X TO WORK WITH BRAND Y 

by 

Randall Hyde 


In the beginning there was ALTAIR and M ITS BASIC. And 
things were just fine and dandy. Then came IMSAI, and POLY- 
MORPHIC, and North Star, and the PET, and. . . and the Apple. 
Along with each new computer came a brand new BASIC which 
was incompatable with most of the others. People got used to 
converting one BASIC to another, and in fact some books have 
been written on the subject! 

In the beginning there was the mini-assembler. Only afew souls 
were hardy enough to use this thing. Very few people (other than 
the marketing people at Apple Computer) were very happy with 
it. As a result several people wrote their own assembler for the 
Apple II. Today, over 15 different (and incompatable) assemblers 
exist for the Apple II. Shades of BASIC! So now, when you pick 
up your favorite Apple or 6502 magazine and see a source listing 
for some neat new utility, or possibly some new game written in 
assembly language you cringe. After all, it’s bad enough having to 
put up with all the different BASICS out there on all the different 
machines, but why do we have to worry about converting code 
written using different assemblers for the same machine? 

Well, fear the thought of conversion no more! Converting as- 
sembly source code from one assembler for another is actually 
quite easy. And although very few assemblers use the exact MOS, 
syntax for their mnemonics etc., by following a few simple rules 
you too can convert. The following tables present a guide for con- 
verting between the more popular assemblers. 

RESERVING MEMORY: 

The following discussion assumes you wish to reserve n bytes for 
data storage. 


ASSEMBLER MNEMONIC 

SOME VERSIONS 

OF TED/II DSn or RMB n 

DEFINING A HEXADECIMAL STRING 


HEX nnnnnnnn. . . 
. HS nnnnnnnn. . . 


LISA 

SC ASM/I I 

ORIGINAL 

MICROPRODUCTS 

ASM/65 

TED/II 

SOFTWARE 

CONCEPTS 

UCSD 


. HS nnnnnnnn. . . 

. BYTE $nn,$nn,$nn. . 
HEX nnnnnnnn. . . 

DFB $nn,$nn,$nn. . . 

. BYTE nn,nn,nn. . . 


SPECIFYING THE PROGRAM ORIGIN 


ASM/65 *=n 

EVERYONE ELSE ORG n -or- . OR n 

SPECIFYING WHERE THE OBJECT CODE IS TO BE 
STORED 


ASM/65 
LISA 
TED/II 
SC ASM/I I 


. OFFSET n 
OBJ n 
OBJ n 
.TAn 


STORING AN ADDRESS IN MEMORY 


ASM/65 

LISA 

TED/II 

SC ASM /I I 

ORIGINAL 

MICROPRODUCTS 

SOFTWARE 

CONCEPTS 


. WORD nnnn,nnnn, . . . 

ADR nnnn 

ADR nnnn (some versions use DFW) 
.DA nnnn 

. SA nnnn 

DFD nnnn, nnnn, . . . 


STORING A STRING IN MEMORY 

ASM/65 . BYTE "sssssssss" 

LISA ASC "sssss" -or- ASC 'ssssss' 

SC ASM/I I . AS 'sssss' -or- . AS -'sssss' 

ORIGINAL 

MICROPRODUCTS . AS 'sssss' 

SOFTWARE 

CONCEPTS ASC 'sssss' 

TED/II ASC 'sssss' 

STORING THE LOW ORDER BYTE OF AN ADDRESS IN 
MEMORY 

SC ASM/I I . DA#nnnn 

LISA BYT nnnn 

STORING THE HIGH ORDER BYTE OF AN ADDRESS IN 
MEMORY 

SC ASM/I I .DA /nnnn 

LISA HBY nnnn 


EQUATING A LABEL TO AN ADDRESS 


ORIGINAL 

MICROPRODUCTS 

SC ASM /I I 

ASM/65 

LISA 

EVERYONE ELSE 


. DL nnnn 
. EQ nnnn 
= nnnn 

EQU nnnn -or- EPZ nnnn 
EQU nnnn 
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In addition to these “standard” operations there are several 
pseudo opcodes which are quite specialized and have no real equal 
in other assemblers. Some of these pseudo opcodes include: 

DCI — Stores a string in memory whose last character has an 
inverted high order bit (TED & LISA). 

JNV — Stores string in memory in the inverted format (LISA) 
BLK — Stores string in memory in the blinking format (LISA) 

. OPT — Allows user to specify some assembly time options 
(ASM/65) 

. PAGE — Skips to top of form on printer (ASM/65) 

PAG - Same as . PAGE (LISA & TED/II) 

STR — Stores a string in memory with a leading length byte 
(LISA) 

LST ON — Turns listing option on (TED/II) 

LST — Turns listing option on (LISA) 

LST OFF — Turns listing option off (TED/II) 

NLS- No listing (LISA) 

There are several other pseudo opcodes floating around, but 
their usage is so rare that there isn’t any need to discuss them 
here. There are some syntax difference among the various assem- 
blers, as well as some mnemonic changes and/or extensions. Some 
assemblers (such as TED/II, LISA, and the Original Microproducts) 
support the “extended mnemonics” BGE and BLT (for branch if 
greater or equal, and branch if less than respectively). If your as- 
sembler doesn’t support these extended mnemonics simply substi- 
tute “BCS” for “BGE” and “BCC” for “BLT”. Likewise, substi- 
tute “EOR” for “XOR”, “BNE” for “BTR”, and “BEQ” for 
“BFL” should you encounter these. Some assemblers also support 
the Sweet-16 instruction set (TED/II, SC ASM II, and LISA). If 
you encounter this type of code you’re better off buying one of 
the above assemblers instead of trying to code it by hand. 

There are some syntax differences among the various assem- 
blers. One key area where almost everyone differs concerns the 
immediate addressing mode. Standard MOS syntax says if you 
want to use the low order byte of the 16-bit yglue in the operand 
field you specify this by preceeding the address with either 
or “#<”. Most people use the first version ar>d do not allow the 
second version (TED/II and ASM/65 are the exceptions). The or- 
iginal Microproducts assembler does not allow the at all! The 
only type of immediate addressing available is an eight bit hex 
constant. The user of the Microproducts assembler specifies the 
immediate addressings mode by simply placing a hex digit in the 
operand field with no leading, or otherwise special characters. To 
differentiate between a label (such as FF) and a hex value greater 
than 9F, the Microproducts assembler requires the hex value to 
begin with a zero. 

The next variation occurs when you wish to select the high 
order byte of a sixteen-bit address expression. Standard MOS syn- 
tax assemblers use The only two assemblers for the Apple II 
which use this mode are TED/II and ASM/65. The SC ASM II 
and LISA specify the high order immediate addressing mode by 
using “/” instead of the “#>”. Finally, the Software Concepts as- 
sembler requires that you divide the value by 256 when you wish 
to use the high order byte. 

As you can see, there is a considerable syntax variation from 
assembler to assembler. Generally however, programs published 
will use either the Original Microproducts assembler, TED/II, or 
LISA which simplifies the conversion requirement. Let us hope 
that 15 more incompatable assemblers for the Apple do not crop 
up! 


>LIST 

10 L0MEH13072 

50 REM SPACE TRIP BY HARK CROSS 

100 ZG*Y0=C0LR=0: REM INTEGER BASIC 

200 INIT*2048:PL0T*2830 
210 REM ABOVE CALLS FOR WOZPAK 
HI-RES ROUTINES 

300 C0LR*255: CALL INITt REM SET UP 
BACKGROUND 

310 FOR 1*1 TO 40JX0* RND ( 280 > 

320 YO* RND (160): CALL PLOT: NEXT 
I 

330 DIM X< 10 )? Y( 10) 

340 XC=140:YC=80: REM CENTER 
350 FOR 1*1 TO 10 
360 X( I >* RND ( 21 >~10:Y( I >* RND 
(21 >-10 

370 IF ABS ( X( I ) )<3 OR ABS ( Y( I ) 

)<3 THEN 360 

380 NEXT i: REM LINES 350-370 SET U 
P MOVING STARS 

400 FOR 1*1 TO 10 : REM THIS LOOP 
MOVES STARS 

410 colr*o:xo*x( i )+xc:yo*y< i hyc: 

CALL PLOT 

420 X( I )*X( I >*4/3 :Y( I >*Y( I >*4/3 

430 IF ABS ( X( I ) X140 AND ABS ( 

Y( I ) )<80 THEN 460 
440 X< I )* RND ( 21 >-10:Y( I )* RND 
(21 >-10 

450 IF ABS ( X( I > )<3 OR ABS ( Y( I > 

)<3 THEN 440 

460 CQLR*255:XQ*XC+X(I>:YG*YC+Y< 

I>: CALL PLOT 
470 NEXT I 

480 GOTO 400 : REM MOVE THEM ALL 
AGAIN 


TELL OUR ADVERTISERS YOU SAW IT IN 
APPLE ORCHARD 
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In addition to these “standard” operations there are several 
pseudo opcodes which are quite specialized and have no real equal 
in other assemblers. Some of these pseudo opcodes include: 

DCI — Stores a string in memory whose last character has an 
inverted high order bit (TED & LISA). 

JNV — Stores string in memory in the inverted format (LISA) 
BLK — Stores string in memory in the blinking format (LISA) 

. OPT — Allows user to specify some assembly time options 
(ASM/65) 

. PAGE — Skips to top of form on printer (ASM/65) 

PAG - Same as . PAGE (LISA & TED/II) 

STR — Stores a string in memory with a leading length byte 
(LISA) 

LST ON — Turns listing option on (TED/II) 

LST — Turns listing option on (LISA) 

LST OFF — Turns listing option off (TED/II) 

NLS - No listing (LISA) 

There are several other pseudo opcodes floating around, but 
their usage is so rare that there isn’t any need to discuss them 
here. There are some syntax difference among the various assem- 
blers, as well as some mnemonic changes and/or extensions. Some 
assemblers (such as TED/II, LISA, and the Original Microproducts) 
support the “extended mnemonics” BGE and BLT (for branch if 
greater or equal, and branch if less than respectively). If your as- 
sembler doesn’t support these extended mnemonics simply substi- 
tute “BCS” for “BGE” and “BCC” for “BLT”. Likewise, substi- 
tute “EOR” for “XOR”, “BNE” for “BTR”, and “BEQ” for 
“BFL” should you encounter these. Some assemblers also support 
the Sweet-16 instruction set (TED/II, SC ASM II, and LISA). If 
you encounter this type of code you’re better off buying one of 
the above assemblers instead of trying to code it by hand. 

There are some syntax differences among the various assem- 
blers. One key area where almost everyone differs concerns the 
immediate addressing mode. Standard MOS syntax says if you 
want to use the low order byte of the 16-bit \jglue in the operand 
field you specify this by preceeding the address with either 
or Most people use the first version and do not allow the 

second version (TED/II and ASM/65 are the exceptions). The or- 
iginal Microproducts assembler does not allow the at all! The 
only type of immediate addressing available is an eight bit hex 
constant. The user of the Microproducts assembler specifies the 
immediate addressings mode by simply placing a hex digit in the 
operand field with no leading, or otherwise special characters. To 
differentiate between a label (such as FF) and a hex value greater 
than 9F, the Microproducts assembler requires the hex value to 
begin with a zero. 

The next variation occurs when you wish to select the high 
order byte of a sixteen-bit address expression. Standard MOS syn- 
tax assemblers use The only two assemblers for the Apple II 

which use this mode are TED/II and ASM/65. The SC ASM II 
and LISA specify the high order immediate addressing mode by 
using “/” instead of the Finally, the Software Concepts as- 
sembler requires that you divide the value by 256 when you wish 
to use the high order byte. 

As you can see, there is a considerable syntax variation from 
assembler to assembler. Generally however, programs published 
will use either the Original Microproducts assembler, TED/II, or 
LISA which simplifies the conversion requirement. Let us hope 
that 15 more incompatable assemblers for the Apple do not crop 
up! 


>LIST 

10 LOMEM 
50 REM S 

100 Z0=Y0 

200 INIT= 
210 REM 


300 C0LR= 
BACK 
310 FOR I 

320 Y0~ R 
I 

330 DIM X 
340 XC=14 
350 FOR I 
360 X(I)= 
(21 >- 
370 IF AB 
)<3 T 
380 NEXT 
P MOV 
400 FOR I 
MOVES 
410 C0LR= 
CALL 
420 X( I >= 

430 IF AB 
Y< I ) ) 
440 X< I )= 

( 91 

450 IF AB 
)<3 T 
460 C0LR= 
IK C 
470 NEXT 
480 GOTO 
AGAIN 
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with Micromodem II 



Direct Connect 
Your Apple II* 

To the Rest of America 


Install Micromodem II™ and watch the dawn of 
new uses bring back the excitement of discovery in 
your Apple II. The Micromodem II package lets your 
Apple II communicate with any other on-line 
computer in North America. You can send and 
receive information — automatically — from across 
town or across the continent on standard telephone 
lines. Imagine the communication possibilities for 
business information, educational uses, scientific 
applications and computer games! 

The Micromodem II changes computer signals 
into telephone compatible signals. The ac- 
companying Microcoupler™ connects directly into 
the standard modular telephone wall plug. They can 
send or receive calls automatically whether you are 
calling the local Apple Bulletin Board or accessing an 
information service from across the continent. You 
can even take advantage of low evening and weekend 
rates on the telephone lines. 

♦Registered trademark of Apple Computer, Inc. 

™Micromodem II and Microcoupler are trademarks of D.C. Hayes Associates, Inc. 


Applecations 

The following categories are present- 
ly available from remote computer 
services. Many of them are obtain- 
able from a centralized service. Some 
are specialized services available 
from only one supplier. The Micro- 
modem II and D.C. Hayes Associates 
provide you with the opportunity to 
access these programs. We do not 
provide the programs. 

HOME AND HOBBY 

Electronic Mail 

Restaurant Listings & Reviews 
Computer Game Library 
Computer Graphics 
Gourmet Meal Recipes 
Syndicated Home Entertainment Features 
Balancing Checkbook 
Income Tax Assistance 
Financial News and Commentary 
Airline, Hotel, Motel and Rental 
Car Reservations 
Biorhythms 
Daily Horoscope 

National Real Estate Locator Services 

Nutrition Analysis 

BUSINESS 

Accounts Payable 

Accounts Receivable 

General Ledger 

Payroll 

Net Cash Flow 
New York Stock Exchange 
American Stock Exchange 
Commodity Prices and Futures 
Financial Commentary 
Foreign Exchange Rates 
Gold, Silver and Platinum Prices 
UPI Wire Services 
Airline, Hotel, Motel and Rental 
Car Reservations 
Calculator 

File, Editing and Sorting 
Program Debugging 
Programming in Extended BASIC, 

FORTRAN, COBOL, RPG, PASCAL 

EDUCATION 

Accessing College Computers 
Languages: French, German and 
Others 
Algebra 
Social Sciences 

Federal Financial Aid Programs 
Typewriter Keyboard Drills 
Installment Loan Annual Interest 
Financial News 

Reference Manuals And Programming Guides 

SCIENCE AND INDUSTRY 

Electrical Engineering 

Mechanical Engineering 

Computer Simulations 

Statistics 

Program Debugging 
System Commands 
Fuel Management 
Thermal Hydraulics 
Heat Transfer 
Architectural Engineering 
Circuit Analysis 
Dependent Variables 
Three Dimensional 
Analysis of Structures 

There are many more specific programs 
available from the remote computer service 
companies. D.C. Hayes Associates, Inc. 
manufacturers the Micromodem II and the 
Microcoupler, and does NOT provide 
remote computer services. 
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. Because this is a direct connection, 
one of the distortion associated with 
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D.C. Hayes Associates, Inc. 

Microcomputer Products 

10 Perimeter Park Drive 
Atlanta, Georgia 30341 
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PROGRAMMA 
INTERNATIONAL, Inc. 
3400 Wilshire Blvd. 

Los Angeles, CA 90010 


card plus programmable automatic dialing 
and answering. The on-board ROM firmware 
adds remote console, terminal mode and sim- 
plified implementation of more sophisticated 
applications with BASIC programs. 

The Microcoupler is supplied with the 
Micromodem II. It is registered with the FCC 
and allows you to connect directly into the 
telephone system. It is compatible with all 
North American standard telephone lines and 
FCC approved for direct connection in the 
U.S.A. The unit is not approved for use on 
equipment originating calls in Canada; how- 
ever, calls going into Canada and Mexico are 
accepted by their equipment. You need no 
additional equipment from the telephone 
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|-Data Transfer 

System 103 Compatible Modem 
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)oard ROM firmware 
lufactured by D.C. Hayes 
'dates. The Micromodem 
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ced by the D.C. Hayes 
Associates Warranty 

• Direct connects your Apple II™ 
with any time sharing computer in 
North America 

• Greatly expands your present 
capabilities 

• Extremely simple to connect 

• Suggested retail of only $379 


Direct Connect 
Your Apple II* 
To the Rest of Ami 


J/ew tfAeAs. . . 

See the center spread of this magazine for information about 
the Micromodem II™. 

□ I am interested in new uses for my Apple II*. Please send me 
your Micromodem II dealer list and your booklet on how the 
Micromodem works with the telephone system. 

Name 



Address 



City 

State 

Zip 


□ I own an Apple II. □ I own 

* Apple II is a trademark of Apple Computer. Inc. 

,M Micromodem II is a trademark of D C. Hayes Associates. Inc. 
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Install Micromodem II™ and watch 
new uses bring back the excitement of 
your Apple II. The Micromodem II pack; 

Apple II communicate with any ot 
computer in North America. You cai 
receive information — automatically — irorn dcrobs 
town or across the continent on standard telephone 
lines. Imagine the communication possibilities for 
business information, educational uses, scientific 
applications and computer games! 

The Micromodem II changes computer signals 
into telephone compatible signals. The ac- 
companying Microcoupler™ connects directly into 
the standard modular telephone wall plug. They can 
send or receive calls automatically whether you are 
calling the local Apple Bulletin Board or accessing an 
information service from across the continent. You 
can even take advantage of low evening and weekend 
rates on the telephone lines. 


♦Registered trademark of Apple Computer, Inc. 

™Micromodem II and Microcoupler are trademarks of D.C. Hayes Associates, Inc. 


Yes, I am interested in receiving more information 
on PROGRAMMA Software/Hardware Products. 


Name. 


Address. 


City. 


State. 


Zip. 


Phone 


Languages: French, German and 
Others 
Algebra 
Social Sciences 

Federal Financial Aid Programs 
Typewriter Keyboard Drills 
Installment Loan Annual Interest 
Financial News 

Reference Manuals And Programming Guides 

SCIENCE AND INDUSTRY 

Electrical Engineering 

Mechanical Engineering 

Computer Simulations 

Statistics 

Program Debugging 
System Commands 
Fuel Management 
Thermal Hydraulics 
Heat Transfer 
Architectural Engineering 
Circuit Analysis 
Dependent Variables 
Three Dimensional 
Analysis of Structures 

There are many more specific programs 
available from the remote computer service 
companies. D.C. Hayes Associates, Inc. 
manufacturers the Micromodem II and the 
Microcoupler, and does NOT provide 
remote computer services. 
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Mountain Hardware, Inc. 

300 Harvey West Blvd. 
Santa Cruz, CA 95060 


card plus programmable automatic dialing 
and answering. The on-board ROM firmware 
adds remote console, terminal mode and sim- 
plified implementation of more sophisticated 
applications with BASIC programs. 

The Microcoupler is supplied with the 
Micromodem II. It is registered with the FCC 
and allows you to connect directly into the 
telephone system. It is compatible with all 
North American standard telephone lines and 
FCC approved for direct connection in the 
U.S.A. The unit is not approved for use on 
equipment originating calls in Canada; how- 
ever, calls going into Canada and Mexico are 
accepted by their equipment. You need no 
additional equipment from the telephone 
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Dear Mt. Hardware, 

Please send me information on the following 
Apple peripherals: 

□ ROMPLUS+ □ ROMWRITER 
□ SUPERTALKER □ 100,000 DAYCLOCK 

□ APPLE CLOCK 


Install Micromodem II™ and w Name 

new uses bring back the excitemer 

your Apple II. The Micromodem II | Address 

Apple II communicate with an) state 

computer in North America. Yoi 
receive information — automatically — rrom across 
town or across the continent on standard telephone 
lines. Imagine the communication possibilities for 
business information, educational uses, scientific 
applications and computer games! 

The Micromodem II changes computer signals 
into telephone compatible signals. The ac- 
companying Microcoupler™ connects directly into 
the standard modular telephone wall plug. They can 
send or receive calls automatically whether you are 
calling the local Apple Bulletin Board or accessing an 
information service from across the continent. You 
can even take advantage of low evening and weekend 
rates on the telephone lines. 

•Registered trademark of Apple Computer, Inc. 

™Micromodem II and Microcoupler are trademarks of D.C. Hayes Associates, Inc. 


Zip 


Languages: French, German and 
Others 
Algebra 
Social Sciences 

Federal Financial Aid Programs 
Typewriter Keyboard Drills 
Installment Loan Annual Interest 
Financial News 

Reference Manuals And Programming Guides 

SCIENCE AND INDUSTRY 

Electrical Engineering 

Mechanical Engineering 

Computer Simulations 

Statistics 

Program Debugging 
System Commands 
Fuel Management 
Thermal Hydraulics 
Heat Transfer 
Architectural Engineering 
Circuit Analysis 
Dependent Variables 
Three Dimensional 
Analysis of Structures 

There are many more specific programs 
available from the remote computer service 
companies. D.C. Hayes Associates, Inc. 
manufacturers the Micromodem II and the 
Microcoupler, and does NOT provide 
remote computer services. 





The 

Micromodem II™ 
Package 



The D.C. Hayes Associates Micromodem 
II™ package is a complete data communica- 
tions system specifically designed for your 
Apple II* personal computer system. It con- 
sists of two microcomputer products and two 
connecting cords. The first unit, the Micro- 
modem II plugs directly into your Apple II. It 
provides all the functions of a serial interface 
card plus programmable automatic dialing 
and answering. The on-board ROM firmware 
adds remote console, terminal mode and sim- 
plified implementation of more sophisticated 
applications with BASIC programs. 

The Microcoupler is supplied with the 
Micromodem II. It is registered with the FCC 
and allows you to connect directly into the 
telephone system. It is compatible with all 
North American standard telephone lines and 
FCC approved for direct connection in the 
U.S.A. The unit is not approved for use on 
equipment originating calls in Canada; how- 
ever, calls going into Canada and Mexico are 
accepted by their equipment. You need no 
additional equipment from the telephone 


company. Because this is a direct connection, 
there is none of the distortion associated with 
acoustic couplers. It was those distortions that 
caused losses in transmissions. Now your com- 
munications are processed with incredible 
accuracy. 

A similar package is available for S100 bus 
computers. 


Features 

• Auto-Answer 

• Auto-Dial 

• Auto-Data Transfer 

• Bell System 103 Compatible Modem 

• Supports Originate Mode 

• Supports Answer Mode 

• FCC Registered 

• Direct-Connect Microcoupler No 
acoustic coupler distortion or loss 

• On-board ROM firmware 

• Manufactured by D.C. Hayes 
Associates, The Micromodem 
Specialists 

• Available through your local 
Computer Store 

• Backed by the D.C. Hayes 
Associates Warranty 

• Direct connects your Apple II™ 
with any time sharing computer in 
North America 

• Greatly expands your present 
capabilities 

• Extremely simple to connect 

• Suggested retail of only $379 




Installing the Micromodem II™ in your Apple II' 


The Micromodem II is very easy 
to install. Simply insert the Micro- 
modem II circuit board into any 
Apple II expansion slot after slot 0. 
Then plug one end of the ribbon 
cable into the circuit board and the 
other end into the Microcoupler™. 
Snap one end of the telephone 
cable into the Microcoupler and 
the other end into your standard 
modular telephone jack. You are 
now completely installed. Just no- 
tify the telephone company that 
you are using an FCC registered 
device. There is no extra telephone 
company equipment needed. 

Enjoy the new worlds 

open to your Apple II! 



Specifications 


Data Format 

Serial, binary, asynchronous 7 or 8 data bits, 
1- or 2-stop bits odd, even, or no parity. 

Lower case characters 

Can be optionally converted to upper case, or 
can be passed through unmodified. 

Firmware 

1024 byte read only memory (ROM) 

Power consumption 

1.5 W Typical 

Card size 

7" x 3" including connector fingers 

Microcoupler size 

5-Vz" X 3-V4" x 1- 3 / 8 " 

Modem compatibility 

Bell System 103-compatible originate or answer 
mode, dial pulse dialing and auto-answer 
-50 dBm receive sensitivity 
-10 dBm transmit level 
110 or 300 baud data rate 

FCC registration 

FCC Registration No. BI986H-62226-PC-E. 
Ringer equivalence 0.4B. 

Connects with modular jacks RJ11W or RJ11C 

Supplied with 

Modem interface card, firmware in ROM, 
Microcoupler™, connector cables, owner's 
manual. 

Suggested Retail 

$379.00 


Micromodem II 
Functional Block 



All D.C. Hayes Associates, Inc. Products Are Available at Your Computer Store 


D.C. Hayes Associates, Inc. 

MICROCOMPUTER PRODUCTS 

10 Perimeter Park Drive, Atlanta, Georgia 30341 (404) 455-7663 

Copyright© 1980 D.C. Hayes Associates, Inc. Specifications subject to change without notice. Printed in U.S.A. 97-028 












Apple lets you get 
personal with Pascal. 


There’s only one logical way to find out what 
a person wants in a personal computer. 

Ask the person who’ll be using one. 

At Apple, we’ve been very successful at 
identifying just what people look for in com- 
puters. And then providing them with it. 

In spades. 

For serious enthusiasts, this means 
making available sophisticated innovations 
that are often conspicuously absent from 
other personal computers. 

Like Pascal. 

Apple II is one of the few personal com- 
puters that has it. And when you turn this page 
and feast your eyes on the many advantages this 


high level, general-purpose language has to offer, 
you’ll see why that’s very good news indeed. 

When you’ve got it, flaunt it. 

If you’d like to let the world know 
who speaks Pascal, here’s how: 

Follow the dotted line and cut out 
the transfer image above. 

Preheat iron (dry- wool setting) for 
3 minutes. Slip garment on ironing board 
over scrap material. Remove wrinkles. 
Position transfer face down and pin edges 
to ironing board cover. Iron transfer slowly 
for one minute. If paper browns, iron is 
too hot. Let transfer cool for one minute, then unpin and 
slowly pull transfer straight up. Results are best when 
t-shirt is at least 50% polyester. 



Pascal by the package. 

Our high-level, full feature Language System 
consists of a plug-in 16K RAM language card, five 
diskettes containing Pascal as well as Integer 
BASIC and Applesoft extended BASIC, plus 
seven manuals documenting the three 
languages. 

The beauty of this Language 
System is that it speeds up 
execution and helps cut unwieldy 
software development jobs down 
to size. Also, because the languages 
are on diskette, loaded into 
RAM, you can quickly and 
economically take advan- 
tage of upgrades and 
new languages as 
they’re introduced. 

Apple’s Pascal 
language takes 
full advantage of 
Apple high reso- 
lution and color 
graphics, analog input 
and sound generation 
capabilities. It turns 
the Apple into the 
lowest priced, high- 
est powered Pascal 
system on the market. 

With Pascal, programs 
can be written, debugged 
and executed in just one-third 
the time required for equivalent BASIC 
programs. With just one-third the memory. 

On top of that, Pascal is easy to understand, 
elegant and able to handle advanced applications. 
It allows one programmer to pick up where 
another left off with minimal chance of foul up. 

Because Apple uses UCSD Pascal,™ you 
get a complete software system: Editor, Assem- 
bler, Compiler, and File Handler. And because we 
adhere to the standard, your programs run on any 
UCSD Pascal system with minimum conversion. 
Which is really something an enthusiast can 
get enthusiastic about. 

To be more specific. 

The Apple II’s specs are tempting enough 
without the Language System and Pascal. With 
them, they’re downright irresistible. 


The text screen, a 24 x 40-line window, can 
display an entire 80-column Pascal line, thanks 
to Apple’s unique horizontal scrolling feature. 

Characters are normal, inverse or flashing, 

5x7, upper case. Full cursor control is standard. 

Since Pascal runs on an Apple computer 
with 48K bytes of on-board RAM, the additional 
16K bytes on the language card bring the total 
to a full 64K bytes. 

And, Pascal runs on the new Apple II Plus. It 
features an Auto-Start ROM that boots the Disk II 
at power-on for turn-key operation. Applesoft 
extended BASIC is resident in ROM. 

Standard color graphics (in the BASIC 
environment) offer 40h x 48v resolution, or 
40h x 40v with 4 lines text, in fifteen colors. 

Black/white high resolution, bit-mapped 
graphics display 8K bytes of memory as a 
280h x 192v image (140h x 192v in six colors). 

Fully buffered 
peripheral 
connectors 
provide 
access to all 
system buses, 
for complete 
interface 
freedom. 

And finally, 
since it weighs a 

mere 11 lbs. and has its own travel case, 
as an option, not only is it easy to get carried 
away with an Apple, it’s easy to carry one away. 

We’ve got your numbers. 

800-538-9696. (In California, 800-662-9238.) 

Or write us at 10260 Bandley Drive, Cupertino, 
California 95014. When you contact us, we’ll give 
you the name, address and telephone number 
of the Apple computer dealer nearest you. 

If you’d like more information on the advan- 
tages of owning an Apple personal computer, he 
can fill you in. Personally. 
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GAME PADDLE PORT PRINTER DRIVER 


Darrell & Ron Aldrich 


Here is some valuable information that can perhaps save you 
up to $200.00, by eliminating the need for a printer interface 
card. This is subject to two conditions: 

1. That the printer is not to be used in conjunction with a 
language card system, and 

2. That it is a TTL Compatible serial mode printer such as 
the Integral Data series or the Heath H-14 

The complete connection can be made with three wires as 
described below, and the printer can be operated at 1200 baud 
serial mode, with handshake, using the driver program on this 
page. 

A CALL 768 will bring the printer up; PRINT D$“PR#0” 
will turn it off, Window width may be set as follows: 

Upon initialization, POKE 777, width. 

After initialization, POKE 940, width. 


IDS 225 pin 7 SIGNAL GROUND pin 8 (GROUND) 

IDS 225 pin 3 RECEIVE DATA pin 15 (ANNUNCIATOR 

0 ) 

IDS 440 pin 20 DATA READY pin 4 (SWITCH 2) 

IDS 440 pin 7 SIGNAL GROUND pin 8 (GROUND) 

IDS 440 pin 3 RECEIVE DATA pin 15 (ANNUNCIATOR 

0 ) 

CAUTION: The Game I/O is not buffered. Make certain your 
corrections are correct before powering up. 


Two characters required to set character spacing on the In- 
tegral Data printers are not directly available from the Apple 
keyboard. This is provided for with two additional CALLs: 

CALL 930 ($3A2) to set 8.3 characters per inch. 

CALL 935 ($3A7) to set 16.5 characters per inch. 

Baud rate may be found at $383. 

PIN CONNECTIONS 

TO APPLE GAME I/O 

IDS 225 pin 5 CLEAR TO SEND pin 4 (SWITCH 2) 

1 UNDWDTH EQU $21 33 JMP DRTRH 

2 CH EQU $24 34 N0D0S TflV 


3 CU 

EQU $25 

4 CSWL 

EQU $36 

5 WNDSET 

EQU $3AC 

6 WNDSAU 

EQU $3AD 

7 DRTRN 

EQU $3EA 

8 YSAUE 

EQU $778 

9 COLCNT 

EQU $7F8 

10 MARK 

EQU $C858 

11 SPACE 

EQU $C059 

12 SW2 

EQU $C063 

13 UTAB 

EQU $FC22 

14 WAIT 

EQU $FCA8 

15 COUT 

EQU $FDED 

16 * 


17 

0RG $300 

18 

OBJ $300 

19 * 


20 TTINIT 

TVA 

21 

PHA 

22 

LDV CSWL 

23 

JSR CONNECT 

24 

NOP 

25 

LDA #40 

26 

STA WNDSET 

27 

LDA CH 

28 

STA COLCNT 

29 

PLR 

30 

CPV #$F0 

31 

BEQ NGDOS 

32 

TAY 


35 

RTS 


36 * 



37 TT0UT 

PHA 


38 

PHA 


39 

LDA 

WNDUDTH 

40 

STA 

WNDSAU 

41 

LDA 

WNDSET 

42 

STA 

UNDWDTH 

43 TT0UT2 

LDA 

#$48 

44 

JSR 

WAIT 

45 

LDA 

COLCNT 

46 

CMP 

CH 

47 

PLfi 


48 

BCS 

TESTCTRL 

49 

PHA 


50 

LDA 

#$A0 

51 TESTCTRL 

BIT 

RTS1 

52 

BEQ 

PRNTIT 

53 

INC 

COLCNT 

54 PRNTIT 

JSR 

DOCHAR 

55 

PLA 


56 

PHA 


57 

BCC 

TTQUT2 

58 

EOR 

#$0D 

59 

RSL 


60 

BNE 

FINISH 

61 

STA 

COLCNT 

62 

LDA 

#$8A 

63 

JSR 

DOCHAR 

64 

LDA 

#$58 


65 

JSR WAIT 

66 FINISH 

LDA COLCNT 

67 

BEQ SETCH 

68 

SBC UNDWDTH 

69 

SBC #$F7 

70 

BCC RETURN 

71 

ADC #$1F 

72 SETCH 

STA CH 

73 RETURN 

LDA WNDSAU 

74 

STA UNDWDTH 

75 

PLA 

76 RTS1 

RTS 

77 * 


78 DOCHAR 

STV YSAUE 

79 

PHP 

80 

LDV #$0B 

81 

CLC 

82 TT0UT3 

PHA 

83 

BCS MARKOUT 

84 

LDA SPACE 

85 

BCC TT0UT4 

86 MARKOUT 

LDA MARK 

87 TT0UT4 

LDA #$14 X 

83 DLV1 

PHA 

89 

LDA #$20 

90 DLV2 

LSR 

91 

BCC DLY2 

92 

PLA 

93 

SBC #$01 

94 

BNE DLY1 

95 

PLA 

96 

ROR 


97 

DEV 


93 

BNE 

TT0UT3 

99 

LDV 

YSAUE 

100 

PLP 


101 END 

RTS 


1 0.Z ♦ 



103 CONNECT 

LDA 

#<TT0UT 

104 

STA 

CSWL 

105 

LDA 

#>TTOUT 

106 

STA 

CSWL+1 

107 

RTS 


108 * 



109 CTRL\ 

LDA 

#$9C 

110 

JMP 

COUT 

111 * 



112 CTRL- 

LDA 

#$9F 

113 

JMP 

COUT 

114 PGMEND 

BRK 
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INTEGRAL DATA HI- RES SCREEN DUMP 

by 

Darrell & Ron Aldrich 


1 

ORG $C06 

53 

PHfl 

93 CSHFT2 

flSL 

2 

OBJ $4000 

54 

AND #$C0 

94 

CMP «$C0 

3 * 


55 

STfl HBflSL 

95 

BPL RTS1 

4 CGUT 

EQU $FDED 

56 

LSR 

96 

LDfl HC0L0R1 

5 * 


57 

LSR 

97 

EOR #$7F 

6 HBflSL 

EQU $26 

58 

ORA HBflSL 

98 

STfl HC0L0R1 

7 HBRSH 

EQU $27 

59 

STfl HBflSL 

99 RTS1 

RTS 

3 * 


60 

PLfl 

100 INUERSE 

LDfl #$20 

9 

LDfl #$20 

61 

STfl HBRSH 

101 

STfl HPftG 

10 

STfl HPRG 

62 

ASL 

102 

STfl HBflSH 

11 

LDfl #$00 

63 

flSL 

103 

LDV #$00 

12 

STfl X 

64 

flSL 

104 

STV HBflSL 

13 

STfl X+l 

65 

ROL HBRSH 

105 INULOOP 

LDfl (HBflSL) ,V 

14 XLOOP 

LDfl #$00 

66 

flSL 

106 

EOR #$FF 

15 

STfl CHR 

67 

ROL HBflSH 

107 

STfl (HBflSL), Y 

16 

LDfl VI 

68 

flSL 

108 

INV 

17 

STfl V2 

69 

ROR HBflSL 

109 

BNE INULOOP 

18 CHPvLOOP 

LDfl V2 

70 

LDfl HBflSH 

110 

INC HBASH 

19 

LDX X 

71 

AND #$1F 

111 

LDfl HBflSH 

20 

LDV X+l 

72 

ORfl HPfiG 

112 

AND #$1F 

21 

JSR HPOSH 

73 

STfl HBflSH 

113 

BNE INULOOP 

22 

LDfl HMflSK 

74 

TXfl 

114 

RTS 

23 

AND #$7F 

75 

CPV #$00 

115 MSKTBL 

HEX 8182848890A0C0 

24 

AND (HBflSL), 

V 76 

BEQ HP0SN2 

116 VI 

HEX 60 

25 

CMP #$00 

77 

LDV #$23 

117 X 

F€X 0000 

26 

BEQ OFF 

78 

ADC #$04 

118 V2 

HEX 00 

27 

LDfl #$40 

79 

HP0SN1 I NY 

119 CHR 

HEX 00 

28 OFF 

STfl SCRATCH 

80 

HP0SN2 SBC #$07 

120 SCRATCH 

HEX 00 

29 

LDfl OK 

81 

BCS HP0SN1 

121 X0L 

HEX 00 

30 

LSR 

82 

STV HNDX 

122 X0H 

HEX 00 

31 

ADC SCRATCH 

83 

TAX 

123 V0 

HEX 00 

32 

STfl OK 

84 

LDfl MSKTBL-$F9,X 

124 HCOLOR 

HEX 00 

33 

IIC Y2 

85 

STfl HMflSK 

125 HNDX 

HEX 00 

34 

LDfl V2 

86 

TVfl 

126 HPftG 

t£X 00 

35 ; 

SBC VI 

87 

LSR 

127 HMflSK 

HEX 00 

36 

CMP #3 

88 

LDfl HCOLOR 

128 HCOLOR 1 

HEX 00 

37 

BNE CHRLOOP 

89 

HPQSN3 STfl HCOLOR 1 



38 

LDfl CHR 

90 

BCS CSHFT2 



39 

JSR COUT 

91 

RTS 



40 

LDfl X 

92 * 



41 

CMP #$17 





42 

LDfl X+l 


The Hi-Res screen dump programs as listed are for the IDS225. 

43 

SBC #$81 


Two changes are required for them to operate correctly with the 

44 

INC X 


Paper Tiger (IDS440). Basic line 220 should be changed to read 

45 

BNE SKIP1 


as follows: 



46 

INC X+l 


220 FOR Y0=0 TO 186 STEP 6: POKE 


47 SKIP1 

BCC XLOOP 


3302, YO: CALL 3072 



48 

RTS 


In the assembly program, change location 

$C48 from 03 to 

49 * 



05 (reference line 36 of source code.) 


50 HPQSN 

STfl V0 





51 

STX X0L 





52 

STV X0H 
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>LIST 

10 REM HI-RES SCREEN DUMP ROUTINE 
20 REM FOR INTEGRAL DATA 

30 REM IP - 225 PRINTER 


40 REM BY RON & DARRELL ALDRICH 

ioo b*="“:c*="“id*="":k*="": rem 

CTRL Br Cr D & K 
110 XO=YO=COLRJ DIM A$<40> 

120 PRINT D$?"NOMON CrlrO" 

130 TEXT 1 CALL -936 J POKE -16297 

r 0 

140 PRINT D*?"BLOAD IP225 DRIVER" 

1 PRINT D$? "BLOAD HI-RES DUMP.B” 

170 CALL -936 1 INPUT "NAME OF PICTUR 
E "fA«J IF A$=" " THEN 170 
180 PRINT D$J "BLOAD " ? A*? " »VrA*2000" 

♦ Qp 

190 CALL -936 J INPUT "INVERT IMAGE T 

0 PRINTER ?"*A$: IF A$= HM THEN 
190 i IF ASC( AC )=217 THEN 210 

1 IF ASC(A$)*206 THEN 190 
200 CALL 3266 

210 CALL 768 J CALL 935J PRINT ♦ 

PRINT C*i REM CALL PRINTER? SE 
T SMALL TYPE? SET GRAPHICS 
220 FOR Y0=0 TO 188 STEP 41 POKE 

3302 »YOJ CALL 30721 REM PRINT 
LINE 

230 PRINT C$?K$? 1 NEXT YO 

240 PRINT C*?B$1 PRINT D*?"PR*" 


+C00.CE7 Hi-R 

0C00- R9 20 8D 
0C08- E7 0C 8D 
0C10- ER 0C RD 
0C18- RD E9 0C 
0C20- 0C 20 66 
0C28- 7F 31 26 
0C30- 40 8D EB 
0C38- 6D EB 0C 
0C40- 0C RD E9 
0C48- 03 D0 CD 
0C50- FD RD E7 
0C58- 0C E9 81 
0C60- EE E8 0C 
0C68- 0C 8E EC 
0C70- 29 C0 85 
0C78- 85 26 68 
0C80- 26 27 0fl 
0C88- R5 27 29 
0C90- 27 8R C0 
0C98- 69 04 C8 
0CR0- F0 0C Rfl 
0CR8- 0C 98 4R 
0CB0- 0C B0 01 
0CB8- 08 RD F3 
0CC0- 0C 60 R9 
0CC8- 27 R0 00 
0CD0- FF 91 26 
0CD8- R5 27 29 
0CE0- 82 84 88 

$300 * 3AF Print 


es Dump 

FI 0C R9 00 8D 
E8 0C R9 00 8D 
E6 0C 3D E9 0C 
RE E7 0C RC E8 
0C RD F2 8C 29 
C9 00 F0 02 R9 
0C RD Efl 0G 4fl 
8D ER 8C EE E9 
8C ED E6 8C C9 
RD Efl 0C 20 ED 
0C C9 17 RD E8 
EE E7 0C D0 03 
90 R8 60 8D EE 
0C 8C ED 0C 48 
26 4fl 4fl 05 26 
85 27 0fl 0fl 0fl 
26 27 0fl 66 26 
IF 0D FI 0C 85 
00 F0 05 R0 23 
E9 07 B0 FB 8C 
BD E6 0B 8D F2 
RD EF 0C 8D F3 
60 0fl C9 C0 10 
0C 49 7F 8D F3 
20 8D FI 0C 85 
84 26 B1 26 49 
C8 D0 F7 E6 27 
IF D0 EF 60 81 
90 R0 C® 00 00 

sr - Driver 


250 END 



I 

PRINTED IN 2*5 MINUTES ON IP 225 


3LI5T 


10 

REM 

HOW TO USE VAL & STR$ 



FUNCTIONS IN APPLESOFT 

100 

:a* = 

"32767" 

110 

;a = 

VAL < A$ ) 

120 

PRINT A 

130 

ib$ = 

STR$ (A) 

140 

PRINT B$ 

150 

END 



0300- 98 48 A4 
0308- A9 28 8D 
0310- F8 07 68 
0318- 4C EA 03 
0320- 21 3D AD 
0328- 21 2C 63 
0330- 07 C5 24 
0338- AO 2C 6F 
0340- 07 20 70 
0348- 49 OD OA 
0350- A9 8A 20 
0358- A8 FC AD 
0360- 21 E9 F7 
0368- 24 AD AD 
0370- 8C 78 07 
0378- BO 05 AD 
0380- 58 CO A? 
0388- 90 FD 68 
0390- 6A 88 DO 
0398- 60 A9 ID 
03A0- 37 60 A9 
03A8- 9F 4C ED 


36 

20 

99 

03 

EA 

AC 

03 

AS 

24 

8D 

CO 

FO 

FO 

04 

A8 

A8 

60 

48 

48 

AS 

03 

AD 

AC 

03 

85 

CO 

10 

FB 

AD 

F8 

68 

BO 

03 

48 

A9 

03 

FO 

03 

EE 

F3 

03 

68 

48 

90 

El 

DO 

OD 

8D 

F8 

07 

70 

03 

A9 

58 

20 

F8 

07 

FO 

03 

ES 

90 

04 

69 

IF 

85 

03 

85 

21 

68 

60 

08 

AO 

OB 

18 

48 

59 

CO 

90 

03 

AD 

14 

48 

A9 

20 

4A 

E9 

01 

DO 

F5 

68 

E3 

AC 

78 

07 

28 

85 

36 

A9 

03 

85 

9C 

4C 

ED 

FD 

A9 

FD 

28 

28 

00 

02 
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SUPER CHECKBOOK — a program designed to be an electronic supplement to your checkbook 
register. It's disk oriented and allows information to be displayed on the video screen or printer. 
It's super fast in sorting and retrieving information and totals. As an added bonus the program 
can optionally provide bar graphs to screen and/or printer. The program performs all standard 
check register operations, i.e. reconciliation. Minimum requirements are Disk II and only 32K 
RAM memory if Applesoft is in ROM; $19.95. 

ADDRESS FILE GENERATOR — a program that gives you complete control over a name and 
address file at a very low price. The power and flexibility of this software system is unmatched 
even in programs costing much more. You are allowed up to eleven fields in each record and 
you can search and sort on any of these fields. In fact you can sort up to three fields at once. 
The program contains a powerful print format routine which allows you to print out any field in 
any format you wish. Minimum requirements are Disk II and only 32K RAM memory if 
Applesoft is in ROM; $19.95 

WORLD OF ODYSSEY — an adventure game to which all others must be compared. It's by far 
the most complex game for the Apple II. It will probably drive you crazy and take several 
months of play to completely traverse this world. You have 353 rooms on 6 different levels to 
explore with myriads of treasures and dangers. The program allows you to stop play and to 
optionally save where you are so that you can resume play at a later time without having to 
repeat previous explorations. It's been called the best adventure game yet! Minimum 
requirements are Disk II with 48K RAM and Applesoft II in ROM; $19.95. 

REAL ESTATE ANALYSIS PROGRAM — The Real Estate Analysis Program provides the user 
with three features, a) A powerful real estate investment analysis for buy/sell decisions and 
time to hold decisions for optimal rental/commercial investments, b) Generation of complete 
amorization schedules, c) Generation of depreciation schedules. All three features are designed 
for video screen or printer output. In addition, the program will plot; cash flow before taxes vs. 
years, cash flow after taxes vs. years, adjusted basis vs. years, capital gains vs. years, pre-tax 
proceeds vs. years, post-tax proceeds vs. years, and return on investment (%) vs. years. 
Minimum requirement Applesoft II, 16K; $14.95. 

DYNAMAZE — a dazzling new real-time game. You move in a rectangular game grid, drawing or 
erasing walls to reflect balls into your goal (or to deflect them from your opponent's goal). 
Every ball in your goal is worth 100 points, but you lose a point for each unit of elapsed time 
and another point for each time unit you are moving. Control the speed with a game paddle: 
play as fast as ice hockey or as slowly and carefully as chess. Back up and replay any time you 
want to; it's a reversible game. Integer Basic (plus machine language); 32K; $9.95 

ULTRA BLOCKADE — the standard against which other versions have to be compared. Enjoy 
Blockade's superb combination of fast action (don't be the one who crashes) and strategy (the 
key is accessible open space — maximize yours while minimizing your opponent's). Play against 
another person or the computer. New high resolution graphics lets you see how you filled in an 
area — or use reversibility to review a game in slow motion (or at top speed, if that's your style). 
This is a game that you won't soon get bored with! Interger Basic (plus machine language); 
32K; $9.95. 

What is a REVERSIBLE GAME? You can stop the play at any point, back up and then do an 
"instant replay", analyzing your strategy. Or back up and resume the game at an earlier point, 
trying out a different strategy. Reversibility makes learning a challenging new game more fun. 
And helps you become a skilled player sooner. 


Available at your 
local computer store 

Call or write for our free 
SOFTWARE CATALOG 

Apple 1 1 is a registered 
trademark of 
Apple Computer, Inc. 


DEALER INQUIRIES INVITED 


POWERSOFT, INC. 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 
(609) 589-5500 


Programs A vail able on Diskette 
at $5.00 Additional 

• Check or Money Order 

• Include $1 .00 for 
shipping and handling 

• C.O.D. ($1.15 add'tl. charge) 

• Master Charge and VISA 
orders accepted 

• New Jersey residents add 
5% sales tax 
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APPLE BAY AREA COMPUTER USERS SOCIETY 

This article describes a simple modification to the Apple II. 
which can be used to display, either upper/lower case letters, 
when using the Apple Writer Text Editor, or can be used to dis- 
play an alternate character set. The modification consists of re- 
moving the existing 2513 character generator ROM and replacing 
it with a 2716 EPROM. The 2716 contains two character sets. 
The first is the standard duplicate of the 2513 and the second is a 
special set which, for example, works with the Text Editor char- 
acters. 

Since the 2716 is not pin compatible with the 2513, an inter- 
connect pattern is needed. In addition, certain connections must 
be made to the main board. To do this effectively, a small circuit 
board is used which holds the 2716 and plugs into the 2513 
socket. Three wires from this board then go to “piggyback” soc- 
ket extensions on the main board. By this means, the modifica- 
tion is simply plug-in and no modifications are required to the 
main board. A circuit diagram of this small board and its inter- 
connections is presented in figure 1. 


How the Circuit Works: 

Imagine That your character generator ROM has two character 
areas. The . first of these is an upper case area and the second is a 
lower case area. Switching between these two areas can be accom- 
plished by using a high address bit. This turns out to be very ap- 
propriate to the Apple Text Editor since it in fact stores the char- 
acters such that upper case characters have the high bit set low 
so that they will display in inverse video. This bit is picked up 
from pin 6 of B13 and is used to select the ROM area from which 
the display character is selected. There is one problem with this 
method, and that is that the high bit set low tells the Apple hard- 
ware to set an inverse character. The result of this simple modifi- 
cation is that we now have lower case but the upper case is still 
in inverse video. The solution is to put into the ROM the inverse 
characters so that although the Apple thinks it is displaying an 
inverse character it is really displaying the inverse of an inverse. 

There is still a problem when you come to observe the resul- 
ting characters. They have funny lines and extra information 
which is very distracting. This is solved by getting at the shift 
register parallel load inputs and setting them with a sixth bit from 
the ROM. To do this they must be lifted from ground and con- 
nected to the little board. Thus pins 3 and 14 are cut and the lead 
from the 2716 is connected to the 74166 pins. 

A final refinement to the system is to make the selection of 
mode software selectable. So rather than put a switch on the cir- 
cuit board, the mode select address pin is connected to the game 
socket at annunciator pin 3. The latch which provides this putput 
always comes up with a low output on power-on. The addressing 
is arranged so that this gives the normal character set in Apple. 
The result is that to the unsuspecting user, the system configur- 
ation looks exactly as he has always seen it and he will never 
know that there is lower case present. The case can be set and 
reset as follows: 


PATRONIZE APPLE ORCHARD ADVERTISERS 


MODIFICATIONS TO THE APPLE II DISPLAY 
UPPER AND LOWER CASE LETTERS 

by 

John Macdougall 


For use with the text editor, the conversion to lower case can 
be made automatic by putting the lower case PEEK into the edi- 
tor HELLO program as follows: 

5 D$=“”: REM CONTROL-D 

10 PRINT D$; “NOMON l,0,C”: CALL -936 

20 POKE 1010, 191: POKE 1011,157: POKE 1012,56 

30 POKE -16289,0 

40 PRINT D$; “BRUNTEDITOR” 

50 END 


Other Features. 

Because of the independent character sets with this system, 
it is possible to have additional characters. You may have noticed 
the odd brackets used above. The special characters, which can 
be accessed by this system, as currently implemented, are as 
follows: 


[ — esc-control-n 
] — esc-shift-m 

— control-n 

— shift-m 
~ — shift-n 

° — esc-shift-n 

APPLE II SOFTWARE 






CURSOR PILOT 

gives any Apple II game-paddle control of the video cursor. Activate 
by touching ESC . then edit or copy with game-paddle. Supports 
normal keyboard controls, is transparent to your programs. 

on cassette . . . $595 


DATA HANDLER 


data base management system. Supports infinite data bases on the 
Apple II disk drive. Structure data to meet your own needs, up to 255 
fields per entry. Advanced data processing allows searching and math 
to generate reports, extensions, and ledgers Use for inventory, checks, 
phone numbers, stocks lab data. etc. Requires 32K & a disk drive. 


on diskette with manual . . 


$4995 


TYPESETTER 


a complete HI-RES graphics character generator and editing system. 
Allows colors, scaling, upper lower case, inverse, and can HPLOT 
letters to any point on the screen Outputs through regular PRINT 
statements Use it to label graphs, create ad displays, or print lower 
case System includes 35 utility programs and character sets. When 
ordering, specify it for disk or ROM Applesoft. Needs 32K with ROM. 
48K witn disk 


on diskette with manual . 


$29.95 


HIRES UTILITY PACK 

Why sweat over HI RES graphics 0 Shape Generator lets you build 
graphic shapes with game paddles, see them at all scales, colors, and 
rotations Save them to disk, and Shape Adder puts up to 255 shapes 
together into a table. Utility Subroutines let you position without 
plotting, find your last plot, and look at the screen to see if a point is 
on. Requires 16K with Applesoft ROM. 

on diskette . . . $1495 


AVAILABLE AT YOUR LOCAL DEALER. OR CALL DIRECTLY AT: 


ANDROMEDA COMPUTER SYSTEMS — 

r^b^) HHH Visa amt Master cM'ge gladly accepted 

Apple II and Applesoft ore trade marks of the Apple Computer Company. Inc. 
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CIRCUIT FOR DISPLAYING UPPER/LOWER CASE 
LETTERS USING THE APPLE TEXT EDITOR. 



J14: USE A 16 PIN SOCKET, ATTACH PIN 12 TO THE 2716 at PIN 19. PLUG THIS 

SOCKET INTO GAME PADDLE SOCKET, GAME PADDLES MAY THEN BE PLUGGED INTO TOP OF 
THIS SOCKET 


EM 3: AT LOCATION B1 3, REMOVE THE IC (74LS02) THEN TAKE A 14 PIN SOCKET AND 

ATTACH A HIRE TO PIN 6, CONNECT THE OTHER END OF THIS UIRE TO PIN #22 OF THE 
2716. NOW INSERT THIS SOCKET INTO LOCATION B13,THEN REINSTALL IC (74LS02) 
INTO THIS SOCKET. 


A3: AT LOCATION A3 REMOVE IC (74166) THEN TAKE A 16 PIN SOCKET AND CONNECT A 

WIRE TO BOTH PINS 3 AND 14, CONNECT THE OTHER END OF THIS UIRE TO PIN #15 OF 
THE 2716. BESURE TO CUT PINS 3 AND 14 SHORT SO THEY DO NOT GO THRU AND INTO 
THE BOARD SOCKET , HOWEVER ALL REMAINING PINS MUST CONNECT TO BOARD SOCKET. NOU 
PLUG SOCKET INTO LOCATION A3 THEN REINSERT IC (74166) INTO THIS SOCKET. 


Exanple of a Piggyback Socket Mounting. 


DEVICE > 

1! 

m 

MB 

bULKt 1 -•* 

i 

r 

rrrj 

1 it 

SOLDER > 

L 

ujUl 

JL11 


“EAGER > 'll) | || || 


listing of the hex code for the character ROM is presented on the fol lowing pages. 
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FD 

FE 

FD 

FB 

F7 

FF 

5F8- 

FI 

EE 

FD 

FB 

FB 

FF 

FB 

FF 

600- 

08 

04 

02 

00 

00 

00 

00 

00 

608- 

00 

00 

0E 

01 

OF 

11 

OF 

00 

610- 

10 

10 

IE 

11 

11 

11 

IE 

00 

618- 

00 

00 

OF 

10 

10 

10 

OF 

00 

620- 

01 

01 

OF 

11 

11 

11 

OF 

00 

628- 

00 

00 

0E 

11 

IF 

10 

OF 

00 

630- 

06 

09 

08 

IE 

08 

08 

08 

00 

638- 

00 

00 

0E 

11 

11 

OF 

01 

0E 

640- 

10 

10 

IE 

11 

11 

11 

11 

00 

648- 

04 

00 

OC 

04 

04 

04 

0E 

00 

650- 

02 

00 

06 

02 

02 

02 

12 

OC 

658- 

10 

10 

11 

12 

1C 

12 

11 

00 

660- 

OC 

04 

04 

04 

04 

04 

0E 

00 

668- 

00 

00 

IB 

15 

15 

15 

11 

00 

670- 

00 

00 

IE 

11 

11 

11 

11 

00 

678- 

00 

00 

0E 

11 

11 

11 

0E 

00 

680- 

00 

00 

IE 

11 

11 

IE 

10 

10 

688- 

00 

00 

OF 

11 

11 

OF 

01 

01 

690- 

00 

00 

17 

18 

10 

10 

10 

00 

698- 

00 

00 

OF 

10 

0E 

01 

IE 

00 
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6A0- 

08 

08 

IE 

08 

08 

09 

06 

00 

6A8- 

00 

00 

11 

11 

11 

13 

0D 

00 

6B0- 

00 

00 

11 

11 

11 

0A 

04 

00 

6B8- 

00 

00 

11 

11 

15 

15 

IB 

00 

6C0- 

00 

00 

11 

0A 

04 

0A 

11 

00 

6C8- 

00 

00 

11 

11 

11 

OF 

01 

0E 

6B0- 

00 

00 

IF 

02 

04 

08 

IF 

00 

6D8- 

07 

OC 

OC 

18 

OC 

Of 

07 

00 

6E0- 

04 

04 

04 

04 

04 

04 

04 

04 

6E8- 

1C 

06 

06 

03 

06 

06 

1C 

00 

6F0- 

0D 

16 

00 

00 

00 

00 

00 

00 

6F8- 

7F 

7F 

7F 

7F 

7F 

7F 

7F 

7F 

700- 

00 

00 

00 

00 

00 

00 

00 

00 

708- 

04 

04 

04 

04 

04 

00 

04 

00 

710- 

0A 

0A 

0A 

00 

00 

00 

00 

00 

718- 

0A 

0A 

IF 

0A 

IF 

0A 

0A 

00 

720- 

04 

OF 

14 

0E 

05 

IE 

04 

00 

728- 

18 

19 

02 

04 

08 

13 

03 

00 

730- 

08 

14 

14 

08 

15 

12 

0D 

00 

738- 

04 

04 

04 

00 

00 

00 

00 

00 

740- 

04 

08 

10 

10 

10 

08 

04 

00 

748- 

04 

02 

01 

01 

01 

02 

04 

00 

750- 

04 

15 

0E 

04 

0E 

15 

04 

00 

758- 

00 

04 

04 

IF 

04 

04 

00 

00 

760- 

00 

00 

00 

00 

04 

04 

08 

00 

768- 

00 

00 

00 

IF 

00 

00 

00 

00 

770- 

00 

00 

00 

00 

00 

00 

04 

00 

778- 

00 

01 

02 

04 

08 

10 

00 

00 

780- 

0E 

11 

13 

15 

19 

11 

0E 

00 
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788- 

04 

OC 

04 

04 

04 

04 

0E 

00 

790- 

0E 

11 

01 

06 

08 

10 

IF 

00 

798- 

IF 

01 

02 

06 

01 

11 

0E 

00 

7A0- 

02 

06 

0A 

12 

IF 

02 

02 

00 

7A8- 

IF 

10 

IE 

01 

01 

11 

0E 

00 

7B0- 

07 

08 

10 

IE 

11 

11 

0E 

00 

7B8- 

IF 

01 

02 

04 

08 

08 

08 

00 

•7C0— 

0E 

11 

11 

0E 

11 

11 

0E 

00 

7C8- 

0E 

11 

11 

OF 

01 

02 

1C 

00 

7D0- 

00 

00 

04 

00 

04 

00 

00 

00 

7D8- 

00 

00 

04 

00 

04 

04 

08 

00 

7E0- 

02 

04 

08 

10 

08 

04 

02 

00 

7E8- 

00 

00 

IF 

00 

IF 

00 

00 

00 

7F0- 

08 

04 

02 

01 

02 

04 

08 

00 

7F8- 

0E 

11 

02 

04 

04 

00 

04 

00 


After construction is complete, care- 
fully check all connections. Then install 
the board, making doubly sure the pro- 
per locations are selected. 

Be sure to add the previously men- 
tioned POKES to the Apple-writer pro- 
gram. Then resave for future use. 

You now have a very sophisitcated 
text editor for your Apple. You will 
now enjoy typing letters, since what you 
see on your screen is what you get on 
the printer. 

good luck . . . 


PAGE FLIP 

by 

Glen Hoag 

From: The Cider Press 

The following brief program is a demonstration of how to 
move from TEXT page 1 to page 2 from BASIC. 

10 REM (1) SET UP PAGE 1 SCREEN 

11 REM (2) SET UP POINTERS FOR PAGE 1 START 

12 REM (3) SET UP POINTERS FOR PAGE 1 END 

13 REM (4) SET UP POINTERS FOR PAGE 2 START 

14 REM (5) CALL MONITOR MOVE ROUTINE 

15 REM (6) POKE THE SWITCH TO DISPLAY PAGE 2 

20 REM STEP (2) 

21 POKE 60,0: POKE 61,4: REM POKE VALUES FOR A1 

30 REM STEP (3) 

31 POKE 62,255: POKE 63,7: REM POKE VALUES FOR A2 
(CONTAINS $07FF) 

40 REM STEP (4) 

41 POKE 66,0: POKE 67,8: REM POKE VALUES FOR A4 
(CONTAINS $0800) 

50 REM STEP (5) 

51 CALL -468: REM MONITOR MOVE ROUTINE LIVES AT 
$0FE2CH 

60 REM STEP (6) 61 CALL -936: REM CLEAR PAGE 1 

61 CALL -936: REM CLEAR PAGE 1 

62 POKE -16299,0: REM TURN ON PAGE 2 

70 PRINT "THIS IS PAGE 1" 

71 FOR 1=0 TO 1000: NEXT I 

72 POKE -16300,0: REM TURN ON PAGE 1 

73 FOR 1=0 TO 1000: NEXT I 

74 GO TO 62 



• Any IBM SELECTRIC can be con- 
verted to produce high quality out- 
put at an affordable price! 

• Interfaces directly to S100, Parallel, 
RS-232 or IEEE-488. 

• Compatible with TRS-80, Sorcerer, 
Pet, Apple, Horizon, etc. 

• Why be printer bound? Prices from 

■■w $496 to $575. 

Call M \ 

today. 


Backspace and Tab 
Available NOW! 


THE DSSENCE 
of output quality 


Escon Products, Inc. 
171 Mayhew Way, Suite 204 
Pleasant Hill, Ca., 94523 
(415) 935-4590- 




uy COMPress, inc. 

JllllSik Computer Oriented Materials Press 
THE BEST 

ACADEMIC COMPUTING MATERIALS FOR HIGH SCHOOL AND COLLEGE 


COMPress now offers you and 
your students an ever-increasing 
variety of academic computing 
materials. These student manuals 
and interactive programs have 
been developed for high school 
and college level courses empha- 
sizing problem solving and labor- 
atory simulations. 


Specially prepared on disk for the APPLE II with 32K, DOS, and 
Applesoft ROM. 


New for Apple II 

Program 

Package 

Manual 

on Disk 

Price 

Mendelian Genetics (270pp) 

GENIE 

$60.00 

Population Growth (164pp) 

POPGROW 

$60.00 

Psychological Statistics (345pp) 

15 Programs 

$60.00 

Descriptive Statistics (58pp) 

4 Programs 

$60.00 


Introductory Offer - 1 0% Discount on Prepaid Orders 


THE BEST OF THE DARTMOUTH COLLEGE TIME-SHARING LIBRARIES FOR YOUR APPLE 

At COMPress, Inc. where we have already published outstanding programs from project COMPUTe (Dartmouth Col- 
lege) and project SABLE (University of California, Berkeley), we are proud to offer you more of the finest academic 
software available today: The Best of the Dartmouth College Time-Sharing Libraries. 


BASIC was first 
mouth College. 


Why Dartmouth College? 

developed at Dart- 


For over a decade Dartmouth College 
faculty and students have been develop- 
ing academic programs for the Dart- 
mouth College Time-Sharing Libraries. 


There are now nearly ONE THOUSAND 
academic programs in the Dartmouth 
College Time-Sharing Libraries. 

COMPress, Inc. and Dartmouth College 
faculty are working together to adapt 
the BEST of the Time-Sharing Libraries 
for your APPLE. 


COMPress interactive programs are: 

• Class Tested 

• Accompanied by a student guide or 
text 


• Time Tested 

• Easily used with no prior computer 
training 


No matter what your academic interest , be sure to get on our mailing list today and receive the latest information on 
the best academic software. 

To order or for more information use this coupon or write: 


COMPress, Inc., P.O. Box 102, Wentworth, N.H. 03282 (603) 764-5831 

□ Please put my name on your mailing list. 

□ I wish to order the following program /manual package 

□ Payment Enclosed (20% Discount) □ Purchase Order Enclosed - Please Bill Me 

Name Date 

School Dept 

Office Phone Office Hours 

City State _Zip 

Number of APPLE'S in your school? In your Dept.? 

What other departments are using APPLE computers? 
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One thing I like to see in an article is an example of how to use 
the material being described. While it may be obvious to the au- 
thor, or even everybody but me, I still feel it is far easier for the 
author to describe his work than for me to translate it. While 
this article will be brief, I trust it will not be incomplete. 

APPLE TYPER is my description mechanism, while the ac- 
tual topic of discussion will be TRIM PRINT. TRIM PRINT is an 
Integer Basic utility program with its use and interface demon- 
strated in the simple application program, APPLE TYPER. 

It is always more impressive if the instructive or textual output 
of a program is neatly spaced on the display or print line such 
that words are not split one line to the next. This is precisely 
what TRIM PRINT does. By including one routine in your pro- 
grams and passing output to it rather than using the PRINT com- 
mand directly, you can have automatically spaced print/display 
lines. 

APPLE TYPER is an extra expensive electric typewriter pro- 
gram which uses TRIM PRINT to keep things neat. 

First to look at TRIM PRINT. 

The TRIM PRINT routine is line numbered from 32000. 
There are five lines that are included to demonstrate a printer 
interface using the APPLE-1 1 serial card. These lines, 32210 
through 32240 and 32260 can be removed if not required for 
your application. The rest of the routine has been kept small and 
uses as few variable names as possible to avoid conflict with the 
main program in which it is embedded. Also, the interfact to 
TRIM PRINT has been kept simple for the same reason. 

Following is a table of variable usage: 

0$ — output passed to TRIM PRINT 

L$ — current print line being built or partial line carried 

over 

L0 — unused 

LI — length carried over 

L2 — pointer to current position in 0$ 

L3 — length of output passed to TRIM PRINT in 0$ 

L4 — amount of 0$ to append to L$ 

L5 — used for controlling blanks 

L6 — position where line should be broken 

L7 — unused 

L8 — print line length 

L9 — unused 

The first part of the routine, through line 32090, determines 
if a null line was passed to instruct the printing of a short line. 
Also checked for is the need for a filler blank between the end of 
the last line passed and the beginning of the current line. The 
next few program steps append sufficient characters from 0$ to 
fill out L$ to the full L8 line length. The FOR loop from line 
32170 backsteps in L$ to find the first occurrence of a blank at 
which the output line can be broken. The printer control follows 
and the line is then either printed or displayed by line number 
32250. The last bit of code determines how much is left to be 
printed and if it is sufficient for another print line, goes through 
all the above again. The pointers will be properly positioned at 
this time and TRIM PRINT returns to the using program. 

With all that said, now to the example, APPLE TYPER. 

The use of 0$ to pass the output with a GOSUB 32010 acti- 
vating TRIM PRINT is shown. The variable N$ is used by APPLE 
TYPER as an End-of-Session test character and is not related to 
TRIM PRINT operation. The REMARKS in APPLE TYPER 
should be sufficient to describe the remainder of its function. 


APPLE TYPER 

by 

W. Curt Deegan 

Note that 0$ has been DIMensioned to the maximum input 
character string length. By so doing, the APPLE-1 1 Monitor will 
signal excessive Jine length without any user programming 
required. 

Obviously, much more could be done within APPLE TYPER 
to spiffy up its function and operation, but that was not neces- 
sary to demonstrate the TRIM PRINT interface, and is there- 
fore left as an exercise to the reader. 

I trust the TRIM PRINT utility, if not APPLE TYPER, will be 
of use, instructive, or both. 


>LIST 



100 

REM 

j|^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

110 

REM 


120 

REM 


130 

REM 

APPLE TYPER 

140 

REM 


150 

REM 

by: 

160 

REM 

W.C. DEEGAN 

170 

REM 

17 MAY 1979 

180 

REM 

DETROIT » MI 

190 

REM 


200 

REM 


210 

REM 

=ALL COMMERCIAL* 

220 

REM 

=RIGHTS RESERVED* 

230 

REM 


240 

REM 


250 

REM 

^ ^ tb ^ sAj* sAp %Ap \£r 

^ ^ ^ ^ ^ ^ ^ ^ ^ rJW ^ ^ /p 

260 

REM 

— 

270 

REM 

...VARS FOR TRIM RTN 

280 

REM 

— 

290 

L8=80t REM LINE LENGTH 

300 

DIM 

0$< 255 ) ♦ REM INPUT VAR 

310 

DIM 

L*< L8)t REM PRINT VAR 

320 

REM 


330 

REM 

— 

340 

REM 

...SET PRINTER FOR 600BPS 

350 

REM 

— 

360 

POKE 

1145*32. REM OVE 

370 

REM 


380 

REM 

$$$$ 9 $ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

390 

REM 

— 

400 

REM 

...INITIALIZATION 

410 

REM 

— 

420 

REM 

CLEAN THE SCREEN 

430 

TEXT 

t CALL -936 

440 

REM 


450 

REM 

END-OF- INPUT CHARCTER 

460 

N*=" B : REM <CNTL>N 

470 

REM 


480 

REM 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 
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490 REM 

500 REM <TYPER> INPUT ROUTINE 
510 REM 

520 TAB 10 i PRINT "APPLE T Y P 
E R" 

530 VTAB 4 

540 REM PROMPT THEN ACCEPT INPUT 
550 INPUT "=>" »0* 

560 REM IF EMPTY LINE* FORCE OUTPUT 

570 IF LEN( 0$ )-0 THEN 660 

580 REM IF <CNTL>N FORCE OUTPUT 

590 REM AND END PROGRAM 

600 IF 0*< 1 >#N* THEN 660 

610 0*="" J REM NULL LINE 

620 GOSUB 32010 

630 END 

640 REM GIVE INPUT TO "TRIM” 

650 REM AND GO AGAIN 
660 GOSUB 32010 
670 GOTO 550 
32000 END 

32010 REM #!m**#*5m******** 

32020 REM 

32030 REM <TRIM> PRINT ROUTINE 
32040 REM 

32050 L2=0iL3= LEN( 0$ ) 

32060 IF L3=0 THEN 32310 
32070 IF L1=0 THEN 32100 
32080 IF 0$<1*1>=" " OR L$(L1)=" " 
THEN 32100 

32090 L1=L1+1 *L$( LI )=" ” 

32100 L4=L8-L1 

32110 IF L2+L4>L3 THEN L4=L3-L2 
32120 L$< Ll+1 )=0$< L2+1 *L2+L4 ) 

32130 Ll= LEN(L$) 

32140 IF L1=L8 THEN 32160 

32150 IF L3=0 THEN 32200 { GOTO 32320 

32160 L5=l 

32170 FOR L6=L1 TO 1 STEP -1 
32180 IF L$( L6»L6 )=" " THEN 32210 

32190 NEXT L6tL5=0 
32200 L6=L1 

32210 POKE 54*71 REM OVE 
32220 POKE 55* 193 X REM OVE 
32230 POKE 1785*L8+1J REM OVE 
32240 POKE 2041*1: REM OVE 
32250 PRINT L$(1*L6-L5) 

32260 PR*0: REM OVE 
32270 IF L6-L1 THEN 32290 
32280 L*< 1 >=L*< L6+1 *L1 ) 

32290 Ll=Ll-L6tL2=L2+L4:L5=0 
32300 IF L2<L3 THEN 32100 
32310 IF L1>0 AND L3=0 THEN 32200 


3LIST 

5 REM " COLOR TUENTYONE - 

BY DARRELL ALDRICH 

10 GR t HGR t HOME X PRINT "TWEN 
TY-ONE COLORS" 

20 DATA GREEN* VIOLET»WHITE»BLAC 
K* ORANGE* BLUE 

30 FOR I b 1 TO 6! READ A$< I >t NEXT 

40 FOR A = 1 TO 6X FOR B = A TO 
6 

50 VTAB 23J PRINT At< B )"-"A$< A )" 

>1 

60 FOR C « 29 TO 119 STEP 2 
70 HCOLOR= A: HPLOT 40 *C TO 240* 

C 

80 HCOLOR= B: HPLOT 40 *C + 1 TO 
240 *C + 1 

90 NEXT C*B*A: GOTO 40 


APPLE II 
MACRO 


Works with 3.2 DOS 
Disk or Cassette-based Systems 


Assembler/Text Editor 


(Nearly all serious Machine Language Programmers use this 
ASSM/TED — do you own a copy?) 

— Assembler and Text Editor Coresident in just over 9 K 
(8 K without disk patches). Works on 16K, 32K, or 48K 
APPLES. 

— Works with 3.2 APPLE II or PLUS — Disk or 
Cassette. 

— Supports Macros and Conditional Assembly. 

— String Search and Replace and/or Conditionally Replace. 

— Move, Copy, Delete, Duplicate, Auto Line#-ing. 

— User allocates size and location of text buffer and symbol 
table. 

— Up to 31 characters/label — User specifies length. 

— 25 Commands, 22 peudo ops, 5 conditional operators. 


$49.95 includes Cassette and Manuel 

Add $3.00 Foreign Air Mail 

Eastern House Software 

3239 Linda Dr. Winston-Salem, N. C. 27106 


32320 RETURN 
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For those who enjoyed APPLE TYPER, or found its TRIM 
PRINT routine useful, APPLE TYPER-I I is just for you. 

With a minimum of modification to the original program and 
the addition of new routine, the APPLE TYPER-I I program gives 
trimmed and right justified lines of print. Use APPLE TYPER-I I 
where you would normally use a print statement and all of your 
program output will have a cleaner more professional appearance. 

As with the original APPLE TYPER, the variable names used 
in RIGHT ADJUST are rather cryptic to make integration of 
these routines into other programs simpler. The new variables 
used in the RIGHT ADJUST routine are: 

LO — total spaces in line 

L7 — //blanks to add at each space in line 

L9 — M of line spaces where 1 more blank is added 

L11 — loop index 

LI 2 — loop index 

To keep the record straight, some variables are also used for 
loop indices or temporary storage as well as for the function 
listed. 

The listing which follows shows only those lines from the ori- 
ginal APPLE TYPER which are changed or new for the APPLE 
TYPER-I I. The change to line 310 is required only to please the 
perfectionists. If L8 (the line length) is set to one — because no 
one said not to — L$ must be at least 2, hence this change. Line 
315 — all new lines are numbered ending in 5 — sets up a varia- 
ble used to move in the spaces druing justification. Lines 32150 
and 32180 are changed and line 32205 added to provide the 
linkage to the new RIGHT ADJUST routine. Line 32265 is added 
to allow passing back to TRIM PRINT from RIGHT ADJUST the 
actual length of the unjustified print line. 32280 has been 
changed to use the new variable LL$ to build the next print line. 
Line 32310 has been changed and 32325 added to properly han- | 
die line length adjustment in light of the fact the printed line is 
usually equal to L8 while the length of the line passed to TRIM 
PRINT and RIGHT ADJUST and used by them is something 
less than L8 due to the padding with blanks for justification 
purposes. 

The RIGHT ADJUST routine is lines 32330 through 32690. 
The program is structured as follows: 

32400—32410 determine number of fill blanks required 
- 32420—32440 determine number of spaces in the line 

32450—32460 set number of blanks to add at each space in 
the line spaces where 1 more blank is needed to fill 
out line 

32480—32630 move through line adding blanks as each space 
is found, first add one based on L7, then as appropriate, 
add 1 more according to L9 

There are a few tests included in the RIGHT ADJUST routine 
that are not specifically called out above. They generally are to 
determine if a special case exists; i.e. line with no blanks, line 
requiring no justification etc. 

That’s all there is to APPLE TYPER-I I. It should be noted that 
the Integer BASIC implementation of this program means a some- 
what slow execution of the filling process T If you are interested 
in speeding things up a bit, consider removing the REMarks, 
move the RIGHT ADJUST routine to the beginning of the pro- 
gram followed by TRIM PRINT and then the TYPER routine at 
the end. Also combine as many lines as possible — while avoiding 
any changes to the logic of the program. 

Happy typing, trimming, and/or justifying. 


APPLE TYPER - II 

by 

W. Curt Deegan 

>LIST 

310 DIM L$( L8+1 ) X REM PRINT MAR #** 
CHANGED*** 

315 DIM LL$( L8+1 )♦ REM JUSTIFY VAR 
***ADDED*** 

32150 IF L3=0 THEN 322001 RETURN 
X REM ***CHANGED*** 

32180 IF L$( L6,L6 )~ M " THEN 32205 
X REM ***CHANGED*** 

32205 GOSUB 32400 X REM ***ADDED*** 
32265 L6=L 7X REM ***ABDED*** 

32280 L*< 1 )~LL$( L6+1 * LI )♦ REM ***CHANG 
ED*** 

32310 IF L1<=0 OR L3O0 THEN RETURN 
X REM ***CHANGED*** 

32325 L6=Li:L7=L6: GOTO 32210 X REM *** 
ADDED*** 

32330 REM 

32340 REM ************************ 

32350 REM *RIGHT JUSTIFY 

32360 REM * SUBROUTINE 

32370 REM *W*CURT DEEGAN 

32380 REM *1? JUNE 1979 

32390 REM ************************ 

32400 L7=L8-( L6-L5 > X L0=0 

32410 IF L7=0 THEN 32630 

32420 FOR L9=l TO L6-L5 

32430 L0=L0+(L$(L9fL9)= H " > 

32440 NEXT L9:LL*=L$ 

32450 IF L0=0 THEN 32630 
32460 L9=L7 MOD L0tL7=L7/L0 
32480 Lll-l 

32500 FOR L0~1 TO L6-L5 
32510 L$( Lll )=LL$( LOvLO ) 

32520 IF L$( Lll yLll )# M " THEN 32610 

32530 IF L7=0 THEN 32580 
32540 FOR L12=l TO L7 
32550 Llls=LU+i:L*<Lli >« M ” 

32570 NEXT L12 
32580 IF L9^0 THEN 32610 
32590 L11=L11+1JL9=L9-1 
32600 L$< Lll )»" " 

32610 Lll-Lll+l ♦ NEXT LO 
32620 L7=L6JL6=L8:L5=0: RETURN 
32630 L7=L6:L5=0: RETURN 
32640 REM ********************** 

32650 REM #ALL COMMERCIAL RIGHTS 

32660 REM * RESERVED 

32670 REM * BYt W*CURT DEEGAN 
32680 REM * 19 JUNE, 1979 

32690 REM ********************** 
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R & R FOR DECIMAL DUMPS 

by 

Max J. Nareff 
From: The Cider Press 

Calculations in Applesoft usually result in long multidecimal 
numbers. While the accuracy of the numbers is commendable, long 
mantissas are often not necessary; frequently they are disruptive 
of the three - columns - via - .commas screen format the Apple 
provides. 

Following is a simple function for reducing post-decimal num- 
bers and for rounding off the residuals (R&R). 

One of the many functions preprogrammed in Applesoft is 
ll^T, used to drop the fractional part of a number. The excision is 
sharp and clear. 

Y=INT (3.4729): PRINT Y 

Will result in “3”. It doesn’t round off; it truncates. Thus: 

Z=INT (6.87563): PRINT Z 

Yields “6”, with everything to the right of the decimal ignored. 
In order to retain numbers to the right of the decimal and to 
“round them off”, we must define a function ourselves. We create 
this special action by means of the DEF (ine) F (unctio) N com- 
mand. 

The function reads DEF FNA(X)=INT (X) where FN indicates 
function and the following letter can be any alphabetic character 
merely serving to define that particular function at the time of its 
use. The (X) is the value to be acted upon. 

The following simple program tells the story: 

20 DATA 3.4678, 19.2062, 11.562, 141.45917, 1000 
30 READ X 
40 IF X-1000 THEN 70 
50 PRINT X, INT (X) 

60 GOTO 30 
70 END 

Note that the standard integer function, INT (X), drops the 
decimals. Now add: 

5 DEF FNA(X)=INT (X*100 +.5)/100 

and rewrite line 50 to read: 

50 PRINT X, INT(X), FNA (X) 

Note how the DEF FNA(X) limits the post-decimal numbers 
to two and “rounds them off”. The latter is due to the addition 
of .5, which increases by 1 those decimal numbers .5 or more; 
anything less is not propelled over the carry-over cliff. When deal- 
ing with several variables (X, Y, Z), just plug them between the 
parentheses. 


APPLE-1 1 HEX and the 
Tl Programmer's Calculator 

by 

Curt Deegan 

If you have a Texas Instruments programmer’s calculator that 
does both decimal and hexadecimal computations, here’s how to 
compute those negative APPLE Integer BASIC POKEs, PEEKs, 
and CALLs; setp by step. 

1. Turn it on. 

2. Push the HEX key. 

3. Enter the HEX address. 

4. Push the - key. 

5. Enter 10000. 

6. Push the = key. 

7. Push the DEC key. 

And presto, one decimal address, ready to go. 
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subLOGIC FS1 

night 

Simulator! 


Experience the excitement of a new era in 
computer simulation as you make your landing 
approach after a practice flight in your FS1 . 
Then return to the skies where enemy fighters 
are waiting to intercept you. 

The FS1 is a visual flight simulator that gives 
you realistically stable aircraft control. And its 
beautifully accurate graphics are produced by 
a high-performance driver capable of drawing 
1 50 lines per second. 

Please DO NOT confuse the FS1 with other 
software claiming to offer flight simulation. 

The FSI ’s sophistication, speed, and beauty 
are way beyond the ordinary. 

See the FS1 package demonstrated at your 
dealer’s, or order directly from subLOGIC. 
Either way, it’s only $25 plus 75P for UPS or 
$1 .50 for first class mail. VISA and Master- 
charge accepted. 

*16K required. Specify your system: Apple II 
or TRS-80 Level I or Level II. 


The engineering and graphics experts 
opening a new era in computer simulation. 



Star A t tract ions: 


WRITE-ON Professional Word Processing lets you 
edit, move, delete, find, change and repeat any 
body of text, merge and save on disk. Does right- 
justified margins, centering, page numbering. You 
can enter name & address into form letters when 
printing. Edit and merge any text disk file— even 
files not created by WRITE-ON— and spool text to 
disk for letter printing or editing. Chain files when 
printing for an infinite number of pages in a single 
printer run. Needs Applesoft and 32K. 

On Disk with operating manual $99.50 

FILEMASTER 2 programs: FORMAT & RETRIEVAL comprise 
a powerful data file manager. Great for everything from phone lists 
to legal abstracts. Needs 32K. Design your own data structure. Up 
to 500 characters per record. Up to 15 searchable fields in any com- 
bination. On Disk $34.95 

SPACE Multi-faceted simulation of life in interstellar society. You 
and opponents must make life & death decisions. Keeps track of 
your progress from one game to next. Needs 48K and Applesoft 

ROM. Disk $29.95 

Pot O'Gold I or our All New Pot 0' Gold II A collection of 49 pro- 
grams for 16K Apple. Everything from Logic to action games. Only 
a buck a game. Specify I or II. Price each: Tape $49 .... Disk $54 

ADVENTURE Fight off pirates and vicious dwarfs. 700 travel op- 
tions, 140 locations, 64 objects. Needs ROM & 48K. Disk. . $29.95 

16K CASSETTE INVENTORY Use item number, description, 
stock amount, reorder amount, restock date, cost & sell price. Holds 
up to 140 items. Tape $35 

32K DISK IN VENTORY : Use stock numbers description, vendor, 
record of purchase and sales date, amount on hand, cost & sell price, 

total value. Holds up to 300 items. Disk $40 

With Parts Explosion: Disk $50 

32K DATA BASE Cross file for phone lists, bibliographies, recipes. 
Run up to 9 lines of 40 columns each. Search by item anywhere. 

Disk $20 

24K HI-RES LIFE SIMULATION Conway's equations on 296x180 
screen. A mathematical simulation to demo population growth with 
birth, death and survival as factors. Tape . . . $10 

16K CIRCUIT LOGIC DEVELOPMENT AID Evaluate circuits of 
up to 255 gates, including AND, OR, NOR, NAND, XOR, XNOR 
and INVERTER. Tape $10 

16K MORSE CODE TRAINER Learn Morse Code, and transmit or 
receive over radio. Tape $10 

16K PACIFICA: Discover the floating island and rescue the beauti- 
ful princess. To win you must recover the enchanted crown, but you 
face the threat of magic spells and demons. Tape $9.95 


RAINBOW'S CASINO 9 gambling games: Roulette, Blackjack, 

Craps, Horserace, and a few originals that Vegas hasn't heard about. 
Needs 16K.Tape $29.95 

16K SPACE WAR: You in your space capsule battle against the 
computer's saucer ... in hi-res graphics. Tape $12 

16K MEMORY VERIFY Diagnostic routine to check range of mem- 
ory. Indicates faulty addresses, data in memory cell, and faulty data. 
Tape $5 

16K APPLEODION Music synthesis composes original Irish jigs. 
Enter your own music and save on tape or disk. Includes 3 Bach 
fugues. Tape $10 

16K APPLEVISION Demo for Hi-Res graphics and music. 

Tape $10 

32K COMPU-READ 5 programs to teach you speed reading, in 
stages. Includes synonym and antonym identification. You control 
your rate of speed, or keep up with the computer's pace. 

Disk $24.95 

48K PERCEPTION I, II, III random shapes and sizes must be 
matched. In III, you control format and display time and get 
weighted scores. Needs ROM. Each Disk $24.95 

24K POLAR PLOT Plot polar equations in Hi-Res Graphics. 

Tape $10 

32K SHAPE SCALER Utility to generate and animate Hi-Res 
graphic shapes. Simple routine provided to inspect position of 
shapes, and specify precise X/Y coordinates and scale. Needs ROM. 
Disk $13.95 

APPLE MONITOR PEELED Everything you wanted to know about 

the Apple Monitor but couldn't figure out. User-written manual in 
plain English clears your confusion. Only $9.95 

Don't see what you've been looking for, here? 

Then write for our FREE SOFTWARE CATALOG. 
We're saving one just for you! 


To order, add $2 shipping. California residents add 6% 
sales tax. Sorry, we can not ship to P.O. Boxes. VISA/ 
MASTERCHARGE and BANKAMERICARD Welcomed! 



Garden Plaza Shopping Center, Dept. 1 A 
9719 Reseda Blvd., Northridge, Ca 91324 
Telephone: (213) 349-5560 
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Programming in Integer Basic is easy, right? (if not, put this 
article down and go learn BASIC FIRST!) Programming in as- 
sembly language is hard, right? (If not, don’t even bother reading 
this!) On the other hand, programs written BASIC are very slow 
whereas programs written in assembly language are very fast/ Oh, 
the cruel world is full of such compromises. One of the main 
reasons that BASIC is so slow is because it is interpreted. This 
simply means that the BASIC interpreter has to figure out what 
each BASIC statement means WHILE THE PROGRAM IS RUN- 
NING. The obvious disadvantage here is that the interpreter 
spends a lot of time just figuring out what the current statement 
is (this action is often called “Parsing”). Some systems, such as 
Apple Pascal do not interpret the source code but rather “Com- 
pile” it into a type of machine code. This has the advantage that 
we can enter the source code into the system in a language not 
too far removed from English and yet enjoy the benefits of a 
pseudo-compiled code (Pascal actually generates a “pseudo-code” 
which is then interpreted). The disadvantage to a compiled lan- 

? :uage is the fact that you don’t get nice run-time error messages 
complete with line number telling you where the error occurred). 
Typically you get something like “FLOATING POINT OVER- 
FLOW” and that’s it. You, the programmer, must figure out 
where in the program the error actually occurred. This type of 
debugging can take hours (in fact it can even take several days). 
Obviously, for debugging purposes, an interpretive language such 
as BASIC is preferred. 

Nevertheless, the day will come when all of the bugs are re- 
moved from the program (or at least most of them!) and the pro- 
grammer begins to prefer speed over the interaction. The obvious 
solution is to write a BASIC compiler, which would take your 
error-free Integer Basic code and convert it to 6502 machine lan- 
guage. Although it would be very easy to write an Integer Basic 
compiler for standard Integer Basic, one problem arises. Many 
people have used non-standard techniques to simulate missing 
functions such as CHR$, STR$, VAL, etc. Most of these “bas- 
tardized” functions depend on the fact that Integer Basic stores 
its variables in a very standard format. Unfortunately, an Integer 
Basic compiler would not take this into account, and as a re- 
sult it would not compile such programs correctly. 

All is not lost however. Although the computer is not smart 
enough to compile such Integer Basic programs correctly, the 
human programmer (by following a few simple rules) is perfectly 
capable of “hand compiling” such programs. Although hand com- 
pilation is not trivial, it is not all that hard and any intermediate 
programmer who knows Integer Basic fairly well and assembly 
language moderately well should be capable of hand compiling 
his Integer Basic programs. 

The first rule is “IF SOMEONE ELSE HAS ALREADY 
DONE SOMETHING FOR YOU , DON'T DUPLICATE THEIR 
EFFORTS." This rule particularly applies to input and output in 
assembly language. There are several output packages available 
ranging from the primitive I/O routines in the Apple monitor to 
more sophisticated routines provided by several vendors. In the 
examples presented in this article, I will use the LZR IOS input/ 
output routines which are provided with LISA vl .5. 


CONVERTING INTEGER BASIC PROGRAMS 
TO ASSEMBLY LANGUAGE 

by 

Randall Hyde 


SIMULATING THE "PRINT" STATEMENT 

There are actually three forms of the print statement which 
we must consider. 

1) Printing a string constant: PRINT “HELLO THERE” 

2) Printing an integer variable: PRINT I 

3) Printing a string variable: PRINT A$ 

Any other form of the PRINT statement can be simulated by 
using one of the above three forms. For example, PRINT “A=”, 
“ l=, I can be simulated by: 

PRINT "A="; 

PRINT A$; 

PRINT " l="; 

PRINT I 

The LZR IOS subroutine package includes routines to realize 
these three functions. The subroutine “PCIM” (for Print Charac- 
ters IMmediate) allows us to print any string constant, the sub- 
routine “PINT” (for Print INTeger) allows us to print an integer 
variable, and “PCIA” (for Print Characters INdirect) allows us 
to print string variables. 

Let’s consider PCIM first. To use this subroutine simply fol- 
low the JSR with the ASCII string to be printed terminated by a 
HEX 00. 

EXAMPLE: 

JSR PCIM 
ASC "l= /# 

HEX 00 

Prints "I-" onto the video screen. 

Using PINT is just as. easy, simply follow the JSR PINT with 
the address of the integer you wish printed. 

EXAMPLE: 

JSR PINT 
ADR I 

Finally, to print a string variable we use the PCIA subroutine 
in a manner identical to PINT. 

EXAMPLE: 

JSR PCIA 
ADR A$ 

So to convert PRINT “l=”, I,” A=“,A$ to assembly language 
you would use: 

JSR PCIM 
ASC "l=" 

HEX 00 
JSR PINT 
ADR I 
JSR PCIM 
ASC "A=" 

JSR PCIA 
ADR A$ 

LDA #$8D 
JSR COUT 
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Note that you must explicitly output the return. Sometimes, 
when using PCIM, you can include the carriage return as part of 
the string you are printing. 

EXAMPLE: 

JSR PCIM 

ASC "HELLO THERE" 

HEX 8DOO 

The last thing to remember is that string must always be ter- 
minated with a hex 00. 

SIMULATING THE "INPUT" STATEMENT 

This statement has two forms, you may either input an integer 
or you can input a string. If a prompting string appears in the 
INPUT statement use the PCIM subroutine to print it. 

INPUTTING A STRING: 

This is simple, use the “GETLN” routine in the Apple monitor 
or the “ROLN” routine iin the LZR IOS package. When these 
routines are called they will read a line from the Apple keyboard 
and store the resulting code in page 2 ($200-$2FF). Upon return- 
ing to your program your code can move this data into the de- 
sired string locations. 

INPUTTING AN INTEGER: 

This one is not quite so simple. First read a line of text from 
the keyboard (using GETLNZ or equivalent) Next check in page 
two for the first (or next) occurrence of a decimal digit (i.e., 
move a pointer past all the blank characters). If a digit is not 
found report some kind of error and make the user re-enter the 
number. If a digit is found store the index into page two in the Y 
register. Next, call the subroutine “CVHD” (provided in the LZR 
i IOS routines). This subroutine will look at the location pointed 
at by the Y register in page two and convert the following charac- 
ters to the internal binary representation required by the 6502 
microprocessor. The resulting 16-bit integer is stored in location 
ADDR (see the LZR IOS source listing provided with LISA for 
the exact address). After the call to CVDH is made you can move 
the data in ADDR and ADDR+1 to the desired location. 
so much for input & output 

Program Constructs, or "So That's How They Do It!" 
THE GOTO STATEMENT: 

The GOTO statement has an identical partner in assembly lan- 
guage. The assembly language equivalent is the JMP (jump) in- 
struction. The only difference is that GOTO always references 
a line number whereas JMP always references an absolute address 
or a label. Because you can jump to labels (and not have to worry 
about line numbers which haven’t been defined yet) The 6502 
JMP instruction is actually EASIER to use than the BASIC 
GOTO instruction. 

EXAMPLE BASIC ASSEMBLY 

10 GOTO 100 JMPL100 

/ 9 

i t 

/ / 

100 END L100BRK ; ETC. 

THE IF STATEMENT: 

The IF statement, because of its many variations, is not a 
trivial instruction to “hand-compile”. Before discussing assembly 
language equivalents it is necessary to discuss how to break a 
complex IF statement into a group of simple IF statements. A 
complex IF statement contains the OR, AND, and NOT opera- 
tors, a simple IF statement does not contain any of these oper- 
ators. 


example 1 

IF (CONDI) AND (COND2) THEN (STATEMENT) 

is the same as 

IF NOT (CONDI) THEN LINE H 
IF NOT (COND2) THEN LINE H 
(STATEMENT /IK 

(LINE) 

Note that if either condition is false you will skip over (state- 
ment //I) as is the case in the “AND” version. 

example 2 

IF (CONDI) OR (COND2) THEN (STATEMENT) 

is the same as 

IF (CONDI) OR (COND2) THEN (STATEMENT) 

is the same as 

IF (CONDI) RHEN (LINEJ//1) 

IF NOT (COND2) THEN (LINE #2) 

(LINE //I) 

(LINE//2) 


If for instancewe execute (LINE//1) unless both (CON- 
DI) AND (COND2) are false. 


Now that AND and OR are out of the way, let’s discuss the vari- 
ous conditions. BASIC supports the logical operators^//”, “=”, 
“>=”, “>”, “<”, and\“=”. Assembly language, when using the 
CMP instruction, only supports “=”, “<”, and 

This presents only a minor problem since “<=” can be synthe- 
sized using “<” and “=”, and “>” can be synthesized by using 
“>=” and 


STOCK MARKET ANALYSIS PROGRAM 
DJI WEEKLY AVERAGE 1897-1980 


ANA1* (ANALYSIS 1) is a set of BASIC Programs which enables the user to 
perform analyses on the Dow Jones Industrial weekly average data. From 6 
months to 5 years of user selected DJI data can be plotted on the entire screen 
in one of 5 colors using Apples’ High Resolution capabilities. The DJI data can 
be transformed into different colored graphic representations called transforms. 
They are: user specified moving averages: a least squares linear fit (best straight 
line); filters for time, magnitude, or percentage changes: and user created rela- 
tionships between the DJI data, a transform, or a constant using +,-,x,/ operators. 
Colored lines can be drawn between graphic points. Graphic data values or 
their dates of occurrence can be displayed in text on the screen. Any graph or 
text can be outputted to a users printer. The Grid Scale is automatically set to 
the range of the graphs or can be user changed. As many colored graphs as 
wanted can be plotted on the screen and cleared at any time. The user can code 
routines to operate on the DJI/transform data or create his own disk file data 
base. ANA1 commands can be used with his routines or data base. An Update 
program allows the user to easily update the DJI file with current DJI weekly 
data. 

The ANA1 two letter user commands are: CA = Calculate, no graph. CG = Clear 
Graphs, leave Grids. CK = Checking out program, known data. CO = Color of next 
graph (red, green, violet, white, blue). CS = Clear Screen. DL = Draw Line between 
points. FI = Filter data for time, magnitude, or percent change. FU = Data, trans- 
form, or constant Function with +,-,x,/ operator. GD = Graphic mode, display 
all Graph Data on screen. GR = Graph data to screen. GS = Set Grid Scale. HE = Help, 
summary of any commands usage. LD = Load Data from disk file from inputted 
date to memory. LG = Leave Graphs, automatic Grid rescaling. LO = Look, select 
a range of the LD data and GR; All commands can now be used on this range. 
LS = Least squares linear fit of the data. MA = Moving Average of the data. NS = 
No Scale, next graph on screen does not use Grid Scale. NT = No Trace. PR = User 
implimented Printer routine. TD = Text mode, display Text Data on screen. Tl = 
Time number to date or vice versa. TR = Trace. TS = Text Stop for number of lines 
outputted to screen when in TD. U1/U2 = User 1/2 implimented routines. VD = 
Values of Data outputted in text. VG = Values of Grid; low/high/delta. VT = Values 
of Transform outputted in text. 

APPLE® II, 48 K, APPLESOFT GALAXY 

ROM CARD, DISK II DOS 3.2 DEPT. CA1 

ANA1 DISK & MANUAL . . . $49.95 P.0. BOX 22072 

(CA residents add 6% sales tax) SAN DIEGO, CA 92122 

* Software Review in Call-A.P.P.L.E. (2/80): “An example of an excellent piece of 
software exploiting most of Apple It’s major features.” Overall Rating = 92.1 
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16 Bit Comparison Synthesis 


X//Y 

LDA X 
CMP Y 
BNE NTEQL 
LDA X+$1 
CMP Y+$1 
BEQ EQUAL 


X<Y 


X=Y 

LDA X 
CMP Y 
BNE NTEQ< 

LDA X+$1 
CMP Y+$1 
BNE NTEQL 
NTEQL: 

In each case the program drops all the way through if the con- 
dition is met, and branches off to some other location if the con- 
dition is not met. So a statement such as 


X>= Y 

LDA X 
CMP Y 
LDA X+$1 
SBC Y+$1 
BLT LSTHAN 


LDA X 
CMP Y 
LDA X+$1 
SBC Y+$1 
BGE GTREQL 


THE APPLE ORCHARD 
INC I 

BNE THERE 
INC l+$1 
THERE: 
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if Id 0 then 100 


is converted as: 


This code performs a 16-bit increment on location I. 

One last thing to note about our loop to improve efficiency. 
The 6502 does not have a “branch if less than or equal” instruc- 
tion. As a result we have to simulate this instruction by combin- 
ing the “BLT” instruction with the “BEQ” instruction. By doing 
this the computer has to execute more instructions which not 
only takes longer but uses more code as well. A much better way 
to do this is to compare I with the value 1001 instead of the value 
1000. By doing this we can get by with using just the “BLT” 
instruction since 1000 is definitely less than 1001. The previously 
described FOR loop gets coded as: 


LDA I 

CMP //!10 ;DECIMAL 10 
LDAI+$1 

SBC /!10 ;H.O. BYTE OF DECIMAL 10 
BLT LIN100 

Obviously the h.o. byte of 10 is 0, but “/!10” conveys the 
meaning much better. As another example: 

IF (J <K) AND (I #10) THEN 100 

is conver ^ed to: 

LDA J 
CMP K 
LDA J+$1 
SBC K+$1 
BGE NOTLS 
LDA I 
CMP //M0 
BNE NOTLS 
LDA l+$1 
CMP /!10 
BEQ LIN100 

NOTES: 

Admittedly, this is a lot of code just to translate one BASIC 
statement. Maybe now you can appreciate BASIC’s efficiency 
(code efficiency that is!) a little better. 

Comparing strings is simply beyond the scope of this article, 
but the idea is still the same. It just takes more code is all. 

THE FOR/NEXT LOOP 

This one is fairly easy. First, let’s break the for-look down in 
BASIC and simulate it using IF statements. 

FOR 1=1 TO 1000 

(PGM CODE GOES HERE) 

NEXT I 

- becomes- 

1=1 

10 IF I >1000 THEN nnnn (NNNN is some four digit line //) 

20 (PROGRAM CODE GOES IN HERE) 

nnnn-2 1=1+1 

nnnn-1 GOTO 10 

nnnn (next statement after the loop) 

Since we already know how to simulate an IF statement and 
the GOTO statement, half of our work is done. Now all we need 
to do is translate the BASIC statements “1=1” and “1=1+1”, 
1=1+1 is easy, simply use the following code: 

LDA //M 
STA I 
LDA /!1 
STA l+$1 

For 1=1+1 we could load the accumulator with I, add one to 
the accumulator and store into I, etc. But a better way is to use 
the 6502 INC instruction as follows: 


LDA //M 
STA I 
LDA /!1 
STA l+$1 
FORLP LDA I 

CMP//I1001 
LDA l+$1 
SBC /I1001 
BLT FORLPO 
JMP FORXIT 

FORLPO: 

(PGM CODE GOES HERE) 
INC I 

BNE FORLP1 
INC l+$1 

FORLP1 JMP FORLP 
FORXIT: 


NEED HELP? 



If you are new to the Apple Computer, 
this is the place with you in mind. 

BEGINNER PACK: Afraid to plug it in? Everything you need to get 
started with your Apple — 20 programs plus, tutorials, safety hints, 

operating hints Disk, Cassette $20 

ELECTRONIC MAGAZINE, VI, VII — Average of 17 programs per 
volume plus documentation, operating hints, reviews, announcements 

of forthcoming software $15 per volume 

NEWSLETTER — For the information we cannot put on disk. We 
scan newsletters from clubs, businesses, schools and filter out in- 
formation the beginner needs. Subscribe anytime in the year and get 
the complete subscription year. Applications $12 per year 

My Apple Speaks Apple II Apple I 

Integer Specify Memory K 

Applesoft Specify Disk_ Cassette 

Pasca l 

VI (D C_) 15 

Name V2 (D_ C_) 15 

Beginner Pk. (Disk_ Cas_) 20 

Address Newsletter 12 

City State Zip 

Add $5.00 per item for foreign orders 

APPLE ORCHARD 

131 HIGHLAND, VACAVILLE, CALIF. 95688 
707-448-9055 
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Note the extensive use of the jump instruction where the 
branch instruction looks like it should suffice. This is due to the 
fact that the branch instructions use the relative addressing mode 
and as such have a limited range. If the program code which goes 
inside the FOR/NEXT loop is very short you may use the follow- 
ing code: 

LDA #! 1 
STA I 
LDA /! 1 
STA l+$1 
FORLP LDA I 

CMP #11001 

LDA l+$1 

SBC /! 1 001 

BGE FORXIT 

(PGM CODE GOES HERE) 

INC I 

BNE FORLP 
INC l+$1 
JMP FORLP 

FORXIT: (REMAINDER OF PGM FOLLOWS) 

The previous discussion assumes that constants are used and 
the stepsize is one. What happens if you have a statement of the 
form: 

FOR l=J TO K 

OR POSSIBLY- 

FOR 1= 1000 TO STEP -1 

-OR EVEN- 

FOR 1= 1 TO 1000 STEP 2 

In the first example here, where we have a variable for the ini- 
tial value and a variable for the final value (or any permutation 
thereof), we have to alter our original program only a little bit. 
First, we would initialize I to J instead of the constant 1. This is 
accomplished as follows: 

LDA J 

STA I 

LDA J+$1 

STA l+$1 

Next we have to worry about the comparison. Remember, the 
comparison is a less than or equal compare which doesn’t exist on 
the 6502 processor. In order to make life convenient for us it 
would be nice if we could add one to K before making the com- 
parison. Unfortunately we do not want to disturb the value cur- 
rently in K because other parts of the program (even within the 
loop) may need to access K. What we can do is create a tempor- 
ary location, poke the value of K+1 into it, and then use this 
temporary location for our comparisons. The resultant code looks 
like the following: 

CLC 
LDA K 
ADC #$1 
STATEMPK 
LDA K+$1 
ADC #$0 
SBC TEMPKL+$1 
FORLP LDA I 

CMPTEMPK 
LDA l+$1 
SBC TE'%L+$1 
BGE FORXIT 

ETC. 

The next problem on our agenda is that of a stepsize other 
than one. If the stepsize is a positive value other than one we can 
simply replace the INC sequence with: 


CLC 
LDA I 

ADC STPSIZ 
STA I 
LDA l+$1 
ADC STPSIZ+$1 
STA l+$1 
JMP FORLP 

(This, of course, may be optimized if the actual constant is 
known at assembly time) 

If the stepsize is negative, things are not quite so simple. The 
problem here is that we don’t exit the loop when the index is 
greater than the final value, but rather we exit the loop when the 
index is less than the final value. The nice thing, of course, is 
that we can use the BLT instruction to test for the end of the 
loop and we don’t have to worry about adding one before perfor- 
ming the test. For the loop: 

FOR 1=1000 to 1 STEP-1 

we could use the initialization and testing code: 

LDA #11000 
STA I 

LDA /! 1000 
STA l+$1 
FORLP LDA I 

CMP=#!1 
LDA l+$1 
SBC /! 1 
BLT FORXIT 

ETC. 

If the stepsize is -1 we can use the special code sequence: 

LDA I 

BNE FORLP1 
DEC l+$1 
FORLP1 DEC I 

JMP FORLP 

otherwise you must use: 

SEC 
LDA I 

SBC STPSIZ 
STA I 
LDA l+$1 
SBC STPSIZ+$1 
STA l+$1 
JMP FORLP 

naturally this can be improved upon if the stepsize is a constant 
known at assembly time. 

This guide to coding FOR/NEXT loops does not consider all 
possible combinations, but it does present a guideline which can 
be used to code FOR/NEXT loops in assembly language. One 
thing to be aware of: if the stepsize is a variable which takes on 
both positive and negative values during the course of a program, 
things get very HAIRY! Thank God this almost never occurs. 

CONVERTING PEEKS, POKES, AND CALLS 

These are the easiest of all. A PEEK is simply a LDA instruc- 
tion in disguise. Likewise a POKE instruction is simply a STA in- 
struction in disguise. A CALL is simply a JSR in disguise. 

POKE l,J LDA I 

STA J (SORTOF) 
l=PEEK(J) LDA J 
STA I 

LDA #$0 ;MUST ZERO H.O. BYTE 
STA l+$1 

CALL -936 JSR $FC58 ;DECIMAL CONVERTED TO HEX 
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CONVERTING GOSUB & RETURN nately, the Auto-start ROM does not. So to make sure that your 


Just like the GOTO & JMP Instructions the GOSUB gets trans- 
lated straight across to a JSR instruction. Likewise, the BASIC 
RETURN statement gets translated directly to an RTS instruc- 
tion. 

CONVERTING THE DIM STATEMENT: 

DIM is used to allocate storage in a BASIC program. BASIC 
allocates its storage dynamically. That is, while the program is 
running you can choose the size of the array by using a statement 
of the form: 

DIM X(l) 

where I is some variable which has been previously defined to be 
some value. Although it is possible to allocate storage dynamic- 
ally in assembly language, this process is by no means trivial. As 
a result, we must make the restriction that all arrays dimensioned 
be dimensioned with a constant value as opposed to a variable. 

With this in mind there are two basic forms of the DIM state- 
ment. Dimensioning an integer array, and dimensioning a string. 

The statement which corresponds to the DIM statement in 
assembly language is the DFS (or define storage) pseudo opcode. 
In reserving memory for your arrays you must keep in mind that 
integer arrays require two byte~> per array element and string 
arrays require one byte per array element plus one byte for the 
length. 

so DIM X(100), A$(20) would be converted to: 

X DFS 1200 
A$ DFS !21 
ETC. 

THE ASSIGNMENT STATEMENT (LET) 

The assignemnt statement, because there are so many varia- 
tions on it (in fact there is almost an infinite number of varia- 
tions), is easily the hardest statement to convert to assembly 
language. 

Rather than getting involved in a long discussion of operator 
precedence and RPN and so on and so forth, I will avoid these, 
topics all together and let you worry about it. I will concentrate 
here on how you perform such operations as addition, subtrac- 
tion, multiplication, division, etc. I am going to assume that all 
assignment statements have been broken down into one of two 
forms: 

1) variable = term 

or 

2) variable = term op term 

where term is either a variable or a constant and “op” is either 
“+”, or “*” (notice how I avoid “ A ”, AND, OR, NOT, 

>=, ETC. but the ideas presented still apply to these operators). 

Any normal BASIC assignment statement can be broken down 
into this format. For instance, the BASIC statement: 

1= (J+K)*(L+5*M) 

can be broken down into: 

TEMPI = J+K 

TEMP2 = 5*M 

TEMP2 = TEMP2+L 

I = TEMPI *TEMP2 

ETC. 

which corresponds to the desired format. 

Now, performing the assignment statement is easy. We simply 
perform the operations one at a time and store the final result 
in I. The only problem to this scheme is the fact that the 6502 
only supports addition and subtraction. There is no multiply or 
divide instruction. As a result we have to write a subroutine to 
perform the mulitplication and division subroutines. Unfortu- 


program is portable, I would suggest that you copy the multiply 
and divide routines out of the red book (or the “white book” if 
you have the new reference manual!) and incorporate them di- 
rectly into your program. 

The previous code is converted as follows: 


CLC 
LDA J 
ADC K 
STA TEMPI 
LDA J+$1 
ADC K+$1 
STA TEMP+$1 

LDA H\ 5 
STA MULOP1 
LDA /! 5 

STA MULOP1+$1 
LDA M 

STA MULOP2 
LDA M+$1 
STA MULOP2+$1 

JSR MLTPLY ; COMPUTES MULOP1 * MULOP2 
CLC 

LDA PRODCT ; GET PRODUCT OF PREVIOUS MULTIPLY 

ADC L 

STATEMP2 

LDA PRODCT+$1 

ADC L+$1 

STA TEMP2+$1 

CLC 

LDATEMP2 
STA MULOP2 
LDA TEMP2+$1 
STA MULOP2+$1 
LDA TEMPI 
STA MULOP1 
LDA TEMP1+$1 
STA MULOP1+$1 
JSR MLTPLY 

LDA PRODCT 
STA I 

LDA PRODCT+$1 
STA l+$1 

VOILA! 

OTHER STUFF 

Most of the other functions in integer Basic (such as TAB, 
VTAB, TEXT, PR//, IN//, PLOT, HLIN, VLIN, COLOR=, 
ETC. are handled by monitor calls. To implement these functions 
I refer the reader to the Apple monitor. 

WARNING! Throughout my discussion I have assumed that 
you are using UNSIGNED INTEGER VARIABLES. The rules 
for signed integer variables (for comparisons etc.) are different. 
Unfortunately due to space requirements I cannot describe hoe 
how to manipulate string variables, nor can J discuss how array 
elemeats are accessed. These two subjects warrant as much dis- 
cussion as is present in this entire article. This information will 
be published in a future issue of Applesauce or the Apple Or- 
chard. 



MIcrnlMET 


Dear Apple II User: 

As more and more Apple II users are finding out every day, you can expand 
the potential of your Apple II computer with MicroNET. The MicroNET 
Personal Computer Service can give your personal computer the additional 
capability of handling more complex computing tasks, and MicroNET can 
offer you a variety of computing services. 

And now we are pleased to announce the additional offering of the MicroNET 
Executive designed specially for Apple II users. The MicroNET Executive is 
a special program which enables your personal computer to function as an 
intelligent terminal. As such, it opens up the entire range of MicroNET 
services and programs for your use, such as: 

— use of the MicroNET Software Exchange to purchase programs and have 
them down-line loaded into your Apple II computer 

— the use of special characters such as left and right brackets for file 
transfer operations 

— the ability to transfer files to and from the large MicroNET time 
sharing computers 

— the ability to receive output longer than the 40 character line length 
without broken words at the end of lines 

— automatic error detection and retransmission during file transfer 

— automatic dial-up with a D.C. Hayes Micromodem II, and more. 

For Apple users who write practical software programs, we offer you the 
opportunity to sell your programs nationwide using the MicroNET Software 
Exchange. Serious authors should contact us to discuss the specifics and 
to arrange for testing your program. 

Thousands of personal computer users across the country are using the 
MicroNET service because they know experience counts. Since MicroNET is a 
service of CompuServe, the well-known nationwide computer services 
company, we can offer the most reliable service available in the world. 

Apple II users, don't delay. Write to MicroNET today. 


Sincerely, 



MicroNET Marketing Manager 


CompuServe 

Personal Computing Division 
5000 Arlington Centre Boulevard 
Columbus, Ohio 43220 
Telephone 614/457-8600 



M/Ucra/Ml 

It’s off and running. And delivering 

as promised. 


What is MicroNET? 

It is the personal computing 
service of CompuServe, 
Incorporated. CompuServe is a 
nationwide commercial time 
sharing computer network with 
large-scale mainframes. 
MicroNET allows the personal 
computer user access to 
CompuServe’s large computers, 
software and disc storage 
during off-peak hours (from 
6 PM to 5 AM weekdays, all day 
on Saturdays, Sundays and 
most holidays). 

What do I get? 

You can use our powerful 
processors with X-Basic, 
Fortran, Pascal, Macro-10, AID 
or APL. You get 1 28K bytes of 
storage free (just access it at 
least once a month). Software 
includes games— including 
networking multi-player games 
—personal, business and 
educational programs. 

In addition, there is the 
MicroNET National Bulletin 
Board for community affairs, 


for sale and wanted notices and 
the MicroNET Electronic Mail 
System for personal messages 
to other MicroNET users. You 
can even sell software via 
MicroNET. 

NEW! MicroQUOTE, a 
security information 
system for corporate 
stocks and public debt. 
NEW! MicroNET Soft- 
ware Exchange with 
dozens of new 
programs available for 
downloading to your 
personal computer at a 
specified charge. 

NEW! Executive pro- 
grams for TRS-80, Apple 
II and CP/M systems (so 
your machine and ours 
can talk to each other 
error-free). You can 
switch between terminal 
and local mode while 
on line. 

What do I have to have to 
use MicroNET? 

The standard 300 baud modem. 
MicroNET has local phone 


service in most major cities (see 
below) and a reduced phone 
charge in over a hundred others. 

What is the cost? 

We’ve saved the best for last. 
There is a one-time hook-up 
charge of only $9.00! Operating 
time— billed in minutes to your 
VISA or MasterCharge card— is 
only$5.00an hour. 

Want more information? 

Good. Write to us at the address 
below. We’ll send you a full 
packet of information about 
MicroNET. 

CompuServe 

Personal Computing Division 
Dept. A 

5000 Arlington Centre Blvd. 
Columbus, Ohio 43220 

MicroNET is available via local phone calls 
in the following cities: Akron, Atlanta, 
Boston, Canton, Chicago, Cincinnati, 
Cleveland, Columbus, Dallas, Dayton, 
Denver, Detroit, Houston, Indianapolis, 

Los Angeles, Louisville, Memphis, West 
Caldwell (NJ), New York, Philadelphia, 
Pittsburgh, San Francisco, Stamford (CT), 
St. Louis, Toledo, Tucson and 
Washington, D.C. 

Access to the MicroNET service is avail- 
able in 153 other cities for an additional 
charge of $4.00 per hour. 



'. . . but the really impressive stuff is in the back room.” 
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THE LANGUAGE SYSTEM -- 
THE APPLE GROWS UP 

by 

Bill Wurzel 


The new Apple Language System greatly expands the capa- 
bilities of the Apple II, giving the user a versatile text editor, 
more usable diskette space, and the ability to write programs in a 
powerful, high-level language. The next few pages will briefly 
describe the hardware and software that comprise the Language 
System. 

WARNING!! 

Despite advertising claims to the contrary, I was unable to 
use all the features of the Language System with a single disk 
drive. This may reflect my own lack of familiarity with the Sys- 
tem rather than a deficiency in the System itself, but if you’re 
interested in the single drive system, I’d advise you to visit your 
friendly computer store for a complete demonstration first! 

WHAT'S IN THE BOX? 

The Language System package contains: 

1. The Language card: This is a PC board about the size of 

the Applesoft ROM card and plugs into slot zero on the 
motherboard. Installation requires removing one of the 
RAM chips and plugging in a 16 pin connector to the 
card (The card seems to require the dynamic memory 
refresh signal from the on-board RAM socket. There is a 
16K x 1 RAM chip on the card which apparently does the 
work of the chip you removed.) 

2. Two PROMs: The increased disk space (about 40K per 
disk — I think the system accomplishes this by writing 
shorter headers, not by changing hard density) requires: 
substituting two new PROMs for the old two on the 
disk controller board. 

3. An 1C puller: Worked very well — changing the chips was 
no problem. 

4. Installation and Operating Manual: Well written. Also 
documents the Autostart ROM feature (including the 
stop-list feature and improved cursor control that come 
with the Autostart ROM). 

5. Apple Pascal Reference Manual: This is sort of the equi- 
valent of the Big Red Book. Like the Big Red Book, it is 
not a tutorial. In its own words: “. . .this manual is most 
definitely not intended for beginners at using computers 
and Pascal ...” Nonetheless, for preliminary documen- 
tation, the Reference Manual is well written and compre- 
hensive. 

6. Pascal User Manual and Report: This book is written by 
Jensen and Wirth, creators of Pascal and appears to : - be 
the definitive documentation of the Standard language. 
Its 165 pages present the features of Standard Pascal 
briefly and include many helpful examples. It also docu- 
ments a sample implementation (on a CDC 6000 series 
machine) and presents the language’s syntax in both 
Backus-Nauer and railroad track formats. The second part 
of the book is the Report which describes the language 
more succinctly. 


7. Problem Solving Using Pascal: Written by Kenneth Bowles, 
one of the architects of the UCSD variant of Pascal, this 
book attempts to teach the major features of the language 
to a reader who already has some knowledge of program- 
ming fundamentals. It seems to be an adequate introduc- 
tion to some of the more straightforward capabilities of 
Pascal, but the language’s more powerful features are in- 
adequately presented or not discussed at all. Although the 
language described is UCSD Pascal (the variant supported 
by the Apple System) the example programs using gra- 
phics and some using disk I/O require minor modifica- 
tions to run properly. All in all, I don’t think this book is 
one of the better “introductions” to Pascal. 

WHAT'S IN THE SYSTEM? 

The Language System operating system and component rou- 
tines are completely different from the familiar Monitor/DOS. 
Lrom the outer, or command level you can enter the file mana- 
ger, compiler, assembler, linker or your own compiled program. 
Each of these system programs is described below. 

HOW DOES IT WORK? 

The language card essentially overlays the upper 12K of ROM 
with 16K of addressable, write-protectable RAM. It crams 16K 
into 12K by switching between two banks of RAM which share 
the DOOO-DFFL address space. Thus the space C000-CFFF 
continues to be used for I/O and internal circuit 
switches. 

This new 16K of RAM can be loaded from disk and then by 
program control can be write-protected — making it a ROM! 
So essentially what you have is 16K of erasable programmable 
read-only memory — instant EPROM! Load this EPROM with 
the old Apple Monitor and you have your old machine — with 
Integer and Applesoft Basics instantly available (Both are “in 
ROM” so the Applesoft ROM card is no longer necessary). DOS, 
of course, runs under the Monitor too, but must be loaded into 
high RAM from disk — exactly like the old Monitor system. 

In “Pascal mode,” the 16K “EPROM” is loaded with a P- 
code interpreter. P-code (the P is for “pseudo-” I guess . . .) 
is the “object code” to which all Pascal programs are compiled. 
Some back issues of BYTE explain this very well. The compo- 
nent programs (compiler, editor, etc.) are written for the most 
part in Pascal and are loaded into high RAM and “executed” by 
the “ROM-resident” P-code interpreter as necessary. 

So, with this 16K “EPROM” you can even write your own 
monitor or make changes to the present one. I’m sure other lan- 
guages like FORTRAN, Lisp, etc. can be implemented in this 
address space. Keep your eye on the marketplace! 

WHAT IS PASCAL? 

It’s not the purpose of this article to describe Pascal com- 
pletely. Nevertheless, certain points are relevant to a decision to 
purchase the Language System or not. 
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Pascal is a high level language developed in the late 1960’s by 
Kathleen Jensen and Niklaus Wirth (pronounced “veert”) at the 
ETK* in Zurich, Switzerland. It was developed to be used in 
teaching programming, but its strengths (discussed below) gradu- 
ally led to its use as a general-purpose programming language' 
in its own right. 

There are two flavors of Pascal referred to in Apple’s docu- 
mentation: Standard Pascal as defined by Jensen and Wirth and 
documented in reference 6 above, and UCSD Pascal, an extension 
of the Standard, described in references 5 and 7 above. The 
variants are very similar; differences lie primarily in the areas of 
file types, string-handling ability and program flow. In the main, 
UCSD extends Standard Pascal, although one Standard Feature, 
FUNCTION types in parameter lists, is not supported in the 
UCSD version. 

The main strengths of Pascal are its data structuring capabili- 
ties and its “top down — structured programming” format. Data 
structuring capabilities include extensible data type definition, 
set structures (in the mathematical sense of “set”), multi-dimen- 
sional arrays of any data type, collections of non-like datatypes 
called “records” (whose components may themselves be records), 
and LINK type variables (making list processing possible). Proce- 
dures and Functions (similar to those in FORTRAN) are also 
implemented; the parameters may be call-by-name or call-by- 
value. Procedures and functions n.ay be multi-nested and contain 
their own local variables. Apple Pascal supports Hi-res graphics 
only (and does not support the second graphics screen), but 
offers powerful graphics subroutines enabling, among other 
things, the mixing of Hi-res text characters (including lower case) 
and line graphics. Oh yes, I almost forgot: procedures and func- 
tions are completely recursive! 

On the negative side of the ledger: Pascal does not appear to 
be a good scientific language. Features such as exponentiation 
(i.e. “to the power of” primitive), transcendental functions (like 
trig functions, logarithms etc.), and primitives for matrix and 
complex algebra are not included in the design of Pascal. The 
trancendental functions, however, are implemented in Apple 
Pascal, but they’re implemented as subroutines written in Pascal 
and consequently run as slow as or slower than the corresponding 
Applesoft functions. Furthermore, passing functions in para- 
meter lists is (at least in my experience) primarily used in scien- 
tific programming; this feature is not supported in UCSD Pascal. 

On balance, however, Pascal is a powerful high-level language. 
For short, quick-and-dirty programs, BASIC is probably an easier 
faster language to use. But for long, involved programs or ones 
which require complicated data structures, there is just no fair 
comparison! 

The following paragraphs discuss the software components of 
the Language System individually. 

THE SYSTEM FILER 

Pascal files are composed of 512-byte blocks of data. The file 
name consists of the disk volume (or drive) on which it resides 
(with appropriate default values), the file name identifier itself, 
and an optional extension. The extension usually identifies what 
kind of file it is (source code or readable text/ object code, data 
for program manipulation, etc.) and is required for some system 
functions. 

The Filer commands are as follows: 

B(ad blocks): Tests all 280 blocks on the specified diskette 

to see that information has been recorded con- 
sistently. (see X(amine) below.) 


Extended list): Shows the contents of a diskette, displaying 
extra information about the files and unused 
portions. 

G(et): Designates a specifed diskette file as the work- 

file. 

K(runch): Packs the files on a diskette so that unused por- 

tions of the diskette are combined into one area. 
Apple DOS allocates disk space differently so 
it doesn’t need this function. But the Language 
System’s contiguous storage scheme keeps disk 
head activity to a minimum. 


M(ake): 

Creates a diskette directory entry and “dummy” 
file. 

N(ew): 

Clears the workfile. 

P(refix): 

Changes the current default volume name. 

R(emove): 

Removes the specified file from the directory. 

S(ave): 

Saves the workfile under the specified name. 

T(ransfer): 

Transfers information from one file to another 
file: can be used to move or save diskette files, 
copy entire diskettes, or send files to a printer 
or other device. 

V(olumes): 

Shows the devices and diskettes currently in 
the system. 

W(hat): 

Tells the name and state of the workfile. 

X(amine): 

Attempts to fix diskette blocks reported bad by 
the B(ad blocks) command. Marks blocks 
which can’t be fixed as “do-not-use.” 

Z(ero): 

Erases the directory of a diskette; clears the dis- 
kette directory without having to reformat the 


disk. 



AT LAST! 

A magazine devoted to Applications as 
well as Technique for the Apple Computer 


THE APPLE SHOPPE WILL TEACH YOU HOW TO 
DO ALL THOSE FANCY THINGS ON THE APPLE. 
LEARN HOW OTHERS ARE USING THEIR 
APPLES IN THE HOME, SCHOOLS AND BUSI- 
NESSES. 




CHECK THESE FEATURES: 

S' Feature Articles on Apple Applications 
^ Program of the Month — ‘How To’ with Listings 
^ New Products Review— Alt Boards, Pascal, etc. 
s/ Language Lab — Learn Basic, Pascal, Forth, Lisp, Pilot 
Future Projects — Participate in a new program design 
called “The China Syndrome” 

Graphics Workshop — Learn secrets formerly known only 
to ‘Super Programmers’ 


YES I want to learn how to get the most out of my Apple. Send me a one year 
subscription. I enclose $12. 


C(hange): Renames a diskette or a diskette file. 


NAME: 


D(ate): 


Sets a new current date for the system. Every 
time a file is saved, the current date is saved 
along with it and is displayed when you “list 
the catalog”. 


ADDRESS: 

CITY STATE ZIP_ PHONE 

D NO, I already know it all, but send me a free sample of next issue. 

Send check or money order to: Apple Shoppe, P.O. Box 701, Placentia, CA 92670 
or call (7141 996-0441 
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THE SYSTEM EDITOR 2. Permit or prohibit use of the GOTO command. The 


It is difficult to do justice to the text editor in a verbal des- 
cription. You really have to see it to appreciate it. But briefly . . . 
fhe editor is designed to be used either for entering programs 
(where you’d like it to behave one way), and entering natural 
language text (where you’d like it to behave completely differ- 
ently). The*editor’s personality is determined by the “Environ- 
ment” block as follows: 

Auto indent: If true, positions the cursor to the first non- 

blank character of the previous line after each 
carriage return. By convention, Pascal is multi- 
level indented to make it easier to follow pro- 
gram logic. 

Filling: If true, the editor “looks ahead” to see if the 

word you have typed will fit on the current 
line. If not, it does an automatic return and 
starts the word on the next line. 

Left Margin: Sets it. 

Right Margin: Can range from 1 to 79 (possibly higher). The 

System supports an 80-character line on the 
standard TV screen. It does this by splitting 
the line in half and permits the user to view one 
half or the other. During text entry, there is 
an option for automatic horizontal scrolling to 
follow the cursor. 

Paragraph margin: For the M(argin) command. 

Command char: Specifies the character which protects lines 
from being marginated. 

Token default: Used in F(ind) and R(eplace) commands. De- 

termines whether any occurrence of the speci- 
fied string is to be found or only those occur- 
rences surrounded by blanks. 

Markers: The System permits ten named “markers” to 

identify ten different locations in the file. This 
is useful for jumping to certain locations in a 
long file quickly or copying only portions of a 
file. 

Cursor commands, inserting, deleting and changing text are 
all pretty standard from one text editor to another — nothing 
new. or exciting here! But text, as it is inserted or deleted, is 
placed into a special copy buffer from which it may be rapidly 
copied into another location in the file. Thus the same text may 
be inserted many times into the file quickly. Alsb, using a se- 
quence of delete-move cursor-copy, you can implement an easy- 
to-use and manageable move-text function. (Most move-text func- 
tions, if they exist at all, require you to specify from-line, to-line, 
number-of-lines, etc. This is awkward and prone to easy errors. 
Moving text with Apple’s editor (at least for me), is much easier!) 

One final feature which makes the editor a joy to use is the 
F(ind) and R(eplace) functions. These let you find the first, the 
nth, or all instances of a specified string, either bounded by 
blanks or not, and replace any or all such instances with another 
text string. As an option, the editor will ask you to verify each 
substitution before it is made, letting you determine where you 
do and don’t want replacements. 

There are several other features, too! See the editor in action 
for yourself! 

THE SYSTEM COMPILER 

The compiler is a program which translates a Pascal source 
program into machine-interpretable P-code. It has several options 
which allow you to: 

1 . Place a character string directly into the codestream. 


GOTO controversy is a long and interesting one. The 
command generally tends to make code harder to fol- 
low. The branch of Computer Science concerned with 
proving programs correct generally forbids its use. 

3. Generate code which automatically checks for I/O errors. 

4. Include other source text from a disk file into the text 
being compiled. 

5. Send a listing of the compilation to a printer or disk 
file. 

6. Page the listed output (i.e. skip over perforations in 
paper). 

7. Suppress compiler progress information from TV screen. 

8. Generate code which will check subscript ranges. BASIC 
does this automatically, but you pay for it with in- 
creased running time. If you’re sure you won’t exceed 
array dimensions (thus clobbering other P-code), Pascal 
lets you save some run time and program storage space. 

9. Accommodate large programs or large symbol tables by 
making segments of the compiler swap themselves in and 
out. The space this swapping saves is available to store 
program or symbol table. 

These look like pretty nice options, and they are! But they 
must all be included in the source program as pseudo-comments. 
This means that to change one of the options (like whether you 
list the program on a printer) you have to re-edit the source text. 
Obviously, a better way to implement compile time options is 
to specify them at compile time! This is a small deficiency in the 
Language System which I hope will be corrected in later releases. 

THE SYSTEM ASSEMBLER 

The Language System also includes a macro-assembler with a 
few extra capabilities for use especially with Pascal. Some of the 
Assembler features include: 

1. Free-format line. Labels and operands do not have to 
begin in specified columns. 

2. Macro facility. The user can define macro statements 
which can invoke other macro statements to a depth of 
five. The macro facility is really rudimentary; variables 
in the macro definition statement are assigned position- 
dependent values from the macro invocation statement. 
These strings cannot be “substrung” or concatenated. 
Also there is no provision for macro-defined variables 
(at least none is documented) and, I think, this really 
emasculates (effeminates?) the full power of a macro 
assembler. A conditional assembly capability is suppor- 
ted but limited by the lack of macro-defined variables. 

3. .ORG, .ASCII, .BYTE, .WORD, .BLOCK, .EQU, . AB- 
SOLUTE all do about what you’d suppose they do. 

4. The special labels .CONST, .PRIVATE and .PUBLIC 
give the assembler programmer access to any or all 
global constants and variables. 

5. The .DEF and .REF pseudo-ops permit communication 
between independently assembled routines. 

6. Local labels. Local labels are labels which are placed in 
a temporary stack, not entered into the symbol table. 
They are very useful for short branches. Any regular 
label purges the local label stack so these short, numeric 
labels may be re-used. 

All in all, the assembler is adequate and easy to use. The macro 
facility could really be improved — but I guess most of us 
shouldn’t need it. After all, if the application is so complex that it 
needs powerful macros, it should probably be written in Pascal! 
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THE SYSTEM LINKER 

Describing the operation and options of the Linker gets pretty 
complicated pretty fast. In general, the linker links together indi- 
vidually compiled or assembled pieces of code into one intercom- 
municating module. If you use an assembly language subroutine 
in BASIC, for example, you have to plan where you want to put 
it, maybe fool BASIC into thinking it isn’t there, and get at it 
with constant-valued PEEKs and POKEs. The Language System 
relieves you of this drudgery. It puts your assembly language pro- 
gram wherever it wants and then updates the appropriate addres- 
ses so that the Pascal program can call it. Also, the linker resolves 
the .CONST and .PUBLIC addresses mentioned earlier, as well as 
.DEFs and .REFs between assembly language routines. 

CONCLUSION 

There are several other features of the Apple Language System 
(such as the System Librarian) which you can mess with if you 
want, but can usually leave alone. They’re not used too much and 
are difficult to describe! 

The Apple Language System (and incidental goodies like the 
Autostart ROM and Applesoft-in-ROM) really represents a quan- 
tum jump in the computing power of the Apple II. Furthermore, 
the “virtual EPROM” in which it is implemented opens the door 
for hundreds of other applications, of which operating systems 
and languages are just a part. 

Now if the Pascal and DOS disks were just compatible . . . 
EDITOR'S NOTE: Watch for this to come. 

EPILOG 

Finally, you supposedly can do everything with a one-drive 
system that you can with a two-drive one. BUT it requires trans- 
ferring files and switching disks with a frequency that I find un- 
acceptable. Your source files must be few and small. So let me 
repeat: see the one drive system do everything you want to da 
before you buy! 

Also of interest, the August 1978 issue of BYTE has some 
good articles on PASCAL. 


THE 15 SECOND 15 CENT RESET FIX 

by 

Ken Silverman 
From: The Cider Press 

Does this look familiar to you? 

10 PRINT “I AM GOING TO ACCIDENTALLY PRESS THE 
RESET KEY” 

Here is the 1 5 second 1 5 cent fix. 

1. Take a small screw driver and lift off the Key Cap of the 
RESET key (Picture 1). 

2. Then place a 7/16 in. I.D. by 5/8 in. O.D. O Ring over the 
stem of the key. Sears model 42-2251 7 O Ring (Picture 3). 

3. Place the Key Cap back on the key. 

Now if you accidentally hit the RESET key it won’t depress. 
Please note the RESET Key can still be used but it will take a few 
pounds of pressure. 

NOTE: This modification might void your Apple II Warranty. 


ON A SLOW 
BOAT TO CHINA, 
ALL YOU NEED 
IS AN APPLE... 

SONGS IN THE KEY OF APPLE (Lopatin) Allows 

you to see and hear your favorite tunes, pre-programmed 
tunes, or music you create (up to 200 notes, including 
rests per musical piece). Multicolor graphics accompany 
all music. # 03304, Apple II, $10.95. 

GENERAL MATHEMATICS-1 (Gilder) Provides 
15 programs useful to anyone who wants to improve 
their math skills and accelerate their computations. An index 
is included. *01104, Apple II, $14.95. 

§ ARGON II (Spracklens) ‘ ‘Buy this program when it 
becomes available—. . .an evaluation routine that enabled it 
to beat the giants! . . . unequaled in the end game . . ” 

Personal Computin g. It is able to push passed pawns toward 
queening, play a strong end game, and range in deep 
play levels at end game without user direction. Has 7 levels 
of play and levels 0-3 play in tournament time. It has a 
randomized opening book for all 7 levels of play through 
3 moves. A hint mode is included at all levels of play but 0. 
*03404, Apple II, $29.95 


AVAILABLE AT YOUR LOCAL 
COMPUTER STORE! 

Or Write To: 





NEW FROM LOBO 


An Entire Family of Disk Drives for 
APPLE, TRS-80*, and S-100 Computers 


Only LOBO DRIVES offers you an entire family of 
fully-compatible disk drives to select from. 
Whatever computer you’re using, APPLE, TRS-80, 
or S-1 00, you can add a LOBO drive now, with the 
peace-of-mind of knowing there’s a whole family of 
drives available when you’re ready to expand. 

And every drive you order comes complete with 
chassis and high reliability power supply. Each 
drive is 1 00% calibrated, burned-in, and 
performance tested on either an APPLE, TRS-80, 
or S-1 00 computer before it’s shipped. We are so 
proud of our drives . . . our quality, reliability, and 
performance, that we back-up every drive with a 
one year, 1 00% parts/labor warranty. 

400 SERIES FLOPPY DISK DRIVES 

Meet our low-cost 5.25-inch 
mini drive that records data 
in either hard or soft 
sectored format. It is 
available in single or double 
density configurations, with a total storage 
capacity of 220K bytes. 

800/801 SERIES FLOPPY DISK DRIVES 

Here is our dual 8-inch 
Floppy disk memory unit. It 
records and retrieves data 
on standard 8-inch 
diskettes to provide 800K 
bytes of data storage unformatted, or 51 2K bytes 





INTERN AT IONAL 


935 Camino Del Sur 
Goleta, California 93017 
(805) 685-4546 

“CAN YOU REALLY AFFORD 
TO PAY LESS?” 


in IBM format per drive. It is also available with 
double-sided, double-density capabilities, for a 
maximum storage capacity of 1 .6 Megabytes. 

7000 SERIES HARD DISK DRIVES 

The latest member of our 
drive family, the Series 
7000 is an 8-inch, 1 0 Mega- 
byte Winchester Technology, 
hard disk drive. It is fully 
hardware/software compatible and comes 
complete with disk controller. Now you can have 
the convenience, speed, reliability, and all the 
storage capacity you need. 

Call or write for the complete LOBO DRIVES story. 
Find out just how competitively priced a quality 
drive can be. 

Quantity discounts available - 
Dealer inquiries invited. 

”1 


□ 5 1 /4-in. Floppy drive □ 8-in. Winchester hard 

disk, 10 Mbyte drive 

□ 8-in. Floppy drive □ Double density 

Single sided expansion interface 

Double sided 


Yes, I want to know more about LOBO Drives 
and what they can do. Send me information on: 
□ TRS-80 □APPLE □ S-100 



Name 






City State 

Zip 

Phone No. 


If dealer, provide resale no. 





♦TRS-80 is a registered trademark of Radio Shack, a Tandy Company. 
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There are some quite useful features in the APPLE monitor 
that support the efforts of both the BASIC and assembly or ma- 
chine language programmer. One, the memory dump, will display 
the contents of any range of memory locations. With the program 
shown below, this valuable utility is extended somewhat to dis- 
play not only the HEX contents of memory locations, but also 
the ASCII equivalent of those HEX values. This added informa- 
tion can prove to be a real aid when dissecting the internal repre- 
sentation of BASIC programs as well as for inspecting data and 
machine language in memory. 

Operation of this routine is in two steps. The first step estab- 
lishes the ‘CTL’Y branching vector at HEX memory locations 
$3F8-$3FA. This step is accomplished by entering the following 
machine language execute command: 

*300G 

The second step actually requests the display of memory. The 
procedure for htis second step is identical to that used for a nor- 
mal memory display to the point where the carriage return would 
be entered. Instead, first enter the ‘CTL’Y character and then the 
carriage return. This would look something like this: 

*2000.202F‘CTL , Y , RETURN , 

Where ‘CTL’Y means to hold down the key marked ‘CTRL’ 
while pushing the Y key, and ‘RETURN’ means to push the key 


HEX — ASCII 
MEMORY DUMP 

* * * 

by 

Curt Deegan 


that is marked ‘RETURN’. Having done this the portion of mem- 
ory will be displayed as usual with the additional ASCII repre- 
sentation of the HEX data appearing on the left of each display 
line. 

A few considerations. While this routine will only be used 
when in monitor mode (i.e. the * prompt), the language from 
which monitor mode was entered can affect its operation. If 
‘RESET’ is used to enter the monitor mode then no further con- 
siderations are necessary for proper operation. Hov/ever, with 
Applesoft ROM active, the routines in the APPLE monitor are 
not accessible to this routine even after a ] CALL -151 has been 
executed. First the ROM card must be turned off. Of course, 
upon return from monitor mode it would be desirable to restore 
the last active language system. This means turning back on the 
ROM card when appropriate, and, regardless of which Applesoft 
is being used (ROM or RAM), the low page one addresses used by 
both the Sweet 16 interpreter, called from this routine, and by 
Applesoft as the return vector for an eventual user restart, must 
be restored to their ocntents before this routine was executed. 
A look through the program listing will show these points have 
been taken into account. APPLE Integer BASIC requires no such 
special handling and is not sensitive to these unique Applesoft 
provisions. Internals of this routine are described in the 
comments of the assembly language listing. — Curt 


“gram^S? 


A ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

2 9 

3 9 HEX-ASCII MEMORY 

4 * DUMP ROUTINE 

5 9 

6 9 -=*=- 

7 9 

8 9 COPYRIGHT (C) 1979 

9 9 BY* W. CURT DEEGAN 

10 9 

11 9 ALL COMMERCIAL 

12 9 RIGHTS RESERVED 

4 "7 * lit ik ^ tl> ^ A \1* tb ib tb ^ *JL» iJLy ^ 

Jl 9 V ^ ^ ^ ^ ^ ^ ^ ^ ^ »p ^ ^ ^ ^ ^ ^ 

14 9 

15 9 EQUATES 

1 (S f 

17 ORIGIN EQU $0300 

18 OBJECT EQU $0800 

19 9 

20 9 MONITOR ROUTINES 

21 COUT EQU $FDED 

22 XAM EQU $FDB3 

23 NXTA1 EQU $FCBA 

24 PRBL3 EQU $F94C 

25 SW16 EQU $F689 


26 

9 I/O 

CNTRL LOGS 

51 

* 

9 


27 

FP 

EQU $C080 

52 

■ ^ ^ Ur iL yip Of «i» *». 

W *P 'P *p*p ^ ^ ^ *p ^ ^p »p ^p ^p ^p ^ ^ ^ ^ rfl 

28 

INT 

EQU $C081 

53 

A 

f 


29 

9 'CTL'Y VECTOR LOC 

54 

JSET UP ' CTRL' Y 

30 

USRADR 

EQU $03F8 

55 

* 

9 


31 

9 FP 

ADDRS TO SAVE 

56 

STAtfT 

LDA 4C 

32 

9 FROM SWT 16 AREA 

57 


STA USRADR 

33 

ZERO 

EPZ $00 

58 


LDA # DECODE 

34 

9 HRZNTL CURSOR POS 

59 


STA USRADR+$1 

35 

CH 

EPZ $24 

60 


LDA /DECODE 

36 

9 ADDR RANGE TO DUMP 

61 


STA USRADR+$2 

37 

AIL 

EPZ $3C 

62 


RTS 

38 

A1H 

EPZ $3D 

63 

A 

9 


39 

A2L 

EPZ $3E 

64 

M ^ ^ ^ ^ ^ A ^ ^ tb Kkf tb A>|> 

/ ^ ^ ^ ^ ^ ^ ^ ^ ^ »p ^ ^ ^p Jp <p *p <p ^ ^ ^ Jp 

40 

A2H 

EPZ $3F 

65 

9 


41 

9 TEMP STORE LOGS 

66 

JDATA 

SAVE AREA 

42 

TIL 

EPZ $60 

67 

9 


43 

T1H 

EPZ $61 

68 

9 FP 

ROM STATUS SAVE 

44 

T2L 

EPZ $62 

69 

ROMSWT 

HEX 00 

45 

T2H 

EPZ $63 

70 

9 FP 

VECTOR SAVE AREA 

46 

A 

9 


71 

ZSAVE 

HEX 000000000000 

47 

)SET ORIGIN ADDRESS 

72 

A 

9 


48 

ii 

9 


73 

# ^ *p »p ^ ^ ^ ^p ^ ^ ^ »p ^ ^ ^ ^p ^p <p /p ^ <p /p 

49 


ORG ORIGIN 

74 

9 


50 


OBJ OBJECT 
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75 ( MAIN ROUTINE 

76 ( 

77 9 CHK IF FF’ ROM IS ON 

78 DECODE LDA SW16 

79 STA ROMSWT 

80 ( SAVE FP VECTORS FROM 

81 ( SWT 16 EXECUTION 

82 LDX 05 

83 JMPSAV LDA ZERO.X 

84 STA ZSAVE r X 

85 DEX 

86 BPL JMPSAV 

87 ( RESET FP ROM SWITCH 

88 LDA INT 

89 ( SAVE DUMP ADDR RANGE 

90 LDA A2L 

91 STA T2L 

92 LDA A2H 

93 STA T2H 

94 i 

95 (DUMP HEX ROUTINE 

96 9 

97 ( THIS ROUTINE WILL 

98 ( COMPUTE THE RANGE 

99 ( OF ADDRS NEEDED TO 

100 ( PRINT 1 LINE OF HEX 

101 ( DUMP. THE START IS 

102 9 EITHER THE INITIAL 


103 i ADDRESS OR THE LAST 

104 9 ADDR IF THIS IS NOT 

105 ( THE FIRST LINE OF 

106 ( THE DUMP OUTPUT 

107 ( 

108 LNLOOP LDA A1H 


109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 MORE 


STA T1H 
STA A2H 
LDA AIL 
STA TIL 
ORA 07 
STA A2L 
JSR SW16 
SET R2»A2L 
SET R3.T2L 
LDD 6R2 
!STO R4 
LDD @R3 
CPR R4 
BIC MORE 
SET R2 9 A2L 
SET R3»T2L 
LDD 0R3 
STD 0R2 
RTN 


128 $ JMP TO MONITOR HEX 

129 ( DUMP ROUTINE FOR 1 

130 9 LINE OF -OUIPUT 

131 PART JSR XAM 

132 9 

133 (DUMP ASCII ROUTINE 

134 9 

135 9 THIS PART DUMPS THE 

136 9 ASCII CODE THAT GOES 

137 9 WITH THE HEX CODE 

138 9 PRINTED ABOVE 


FIRST SET ADDR RANGE 


141 


LDA TIL 

142 


STA AIL 

143 


LDA T1H 

144 


STA A1H 

145 

( 

PUT COLON AT SCRN 

146 

A 

f 

POS 29 

147 


LDA ID 

148 


STA CH 

149 


LDA OBA 

150 


LDX 02 

151 


JSR PRBL3 

152 

* 

r 

LOOP PRINTING ASCII 

153 

* 

9 

EQUIV OF HEX UNTIL 

154 

* 

END OF 1 LINE 

155 


LDY 00 

156 

CHLOOP LDA < AIL )» Y 

157 


BPL PRINT 

158 

A 

9 

CHECK FOR CTL CHAR 

159 

A 

f 

AND SUBSTITUTE A ' 

160 

A 

9 

IF HEX IS BETWEEN 

161 

9 

♦80 AND *9F 

162 


AND 60 

163 


BNE REGET 

164 


LDA OAE 

165 


BNE PRINT 

166 

REGET LDA (AlL)rY 

167 

A 

9 

PRINT ASCII EQUIV OF 

168 

9 

HEX VALUE OR ' IF 

169 

* 

9 

A CTL CHAR 

170 

PRINT JSR COUT 

171 

» 

9 

STEP TO NEXT LOC 

172 


JSR NXTA1 

173 

f 

END OF LINE? 

174 

8 76 

* 

BCC CHLOOP 

1/ D 


176 

A ' 

9 

TEST FOR END ROUTINE 

177 

9 


178 

( 

HERE THE INITIAL 

179 

( 

ADDR RANGE IS CHKED 

180 

* 

f 

AGAINST THE CURRENT 

181 

( 

POINTERS TO SEE IF 

182 

A 

9 

WE ARE FINISHED 

183 

t 


184 


JSR SW16 

185 


SET Rif AIL 

186 


SET R2 f A2L 

187 


SET R3f T2L 

188 


LDD 6R1 

189 


STO R4 

190 


LDD 0R3 

191 


STD (?R2 

192 


CPR R4 

193 


BNC NOMORE 

194 


RTN 

195 


JMP LNLOOP 


196 NOMORE RTN 

197 9 

198 9 RESET POINTERS ROUTINE 

199 9 

200 9 WE ARE THRU. NOW TO 

201 9 REPLACE THE FP ADDR 

202 9 VECTORS AND RESET 

203 9 THE FP ROM IF IT 

204 9 WAS ON WHEN THIS 

205 9 DUMP S STARTED 

206 9 


LDA ROMSWT 
CMP 20 
BEQ QUIT 
LDA FP 
QUIT LDX 05 
JMPRST LDA ZSAVE fX 
STA ZERO 9 X 
DEX 

BPL JMPRST 
RTS 

,9 

' *********************** 
(PERMISSION IS GRANTED 
(TO REPRODUCE FOR THE 
(NON-PROFIT USE AND 
(DISTRIBUTION OF CLUBS 
) HOBBYISTS AND EDUCA- 
TIONAL INSTITUTIONSf 
(SQ LONG AS CREDIT IS 
(GIVEN THE MICHIGAN 
(APPLE-GRAM AND THE 
(AUTHOR* W.CURT DEEGAN 

I ( ********************** 


0300- A9 4C 80 F8 03 A9 17 80 

0308- F9 03 A? 03 80 FA 03 60 

0310- 00 00 00 00 00 00 00 AD 

0318- 89 F6 80 10 03 A2 05 B5 

0320- 00 90 11 03 CA 10 F8 AD 

0328- 81 CO A5 3E 85 62 A5 3F 

0330- 85 63 A5 30 85 61 85 3F 

0338- A5 3C 85 60 09 07 85 3E 

0340- 20 89 F6 12 3E 00 13 62 

0348- 00 62 34 63 04 03 08 12 

0350- 3E 00 13 62 00 63 72 00 

0358- 20 03 FD A5 60 85 3C A5 

0360- 61 85 3D A9 ID 85 24 A9 

0368- BA A2 02 20 4C F9 AO 00 

0370- B1 3C 10 OA 29 60 DO 04 

0378- A9 AE DO 02 B1 3C 20 ED 

0380- FD 20 BA FC 90 EA 20 89 

0388- F6 11 3C 00 12 3E 00 13 

0390- 62 00 61 34 63 72 04 02 

0398- 04 00 4C 32 03 00 AD 10 

03A0- 03 C9 20 FO 03 AO DO CO 

03A8- A2 05 BD 11 03 95 00 CA 

03B0- 10 F8 60 

ABDORBSEWE ARE THRU. ( REPL 
203 ( TE04 ( WAS ON WHEN T 
AS STARTED 
206 9 
2SWT 

008 T CMP 

5210 LDA 

212 JMPRST LDA ZSAVX ZEROfX 

214 DBPL JMPRSTC 

216 

218 (*******«******ERMISSION 
221 (N0N-02 (DISTRIBUTION OF 
224 (TIONAL INI LONG AS CRED 
2IGAN 

227 ( APPLE-GRMUTHOR * W.CURT 

*************** 

230 ( 



ANOTHER FIRST FROM 
MOUNTAIN HARDWARE. 


SUPERTALKER. 



SuperTalker allows you 
to add the dimension of 
human speech output in 
your computer programs. 

Add voice to games. Pro- 
gram verbal prompting for 
the operator of your busi- 
ness system. Use verbal 
warnings under program con- 
trol as an enunciator in com- 
mercial security or control rooms. 

Create educational programs that 
verbally coach the student. 

THE SUPERTALKER SYSTEM. 

SuperTalker is a new Mountain 
Hardware peripheral system which 
allows the Apple II computer to output exception- 
ally high quality human speech through a loud- 
speaker under program control. Output may also 
be directed through any RA. or stereo system. 
Initially, spoken words are digitized into RAM 
memory through the system microphone. Speech 
data in RAM may then be manipulated like any 
other stored data. 

A COMPLETE PACKAGE. 

The SuperTalker peripheral system consists of: 
The SuperTalker peripheral card which plugs into 


FOR YOUR 
APPLE n 


a loudspeaker; easy- 
to-use operating soft- 
ware and documentation ; 
plus, two ready-to-run 
SuperTalker programs. 
OPERATING SYSTEMS. 

In order to achieve maximum 
utility using SuperTalker, the 
SuperTalker Disk Operating 
System permits output of 
human speech under program 
control with direct I/O routines. 

It also provides a preparation pro- 
gram which permits the creation 
of voice files on diskette. BASIC 
program routines are provided 
which require only one-line statements to out- 
put a word or phrase. Routines also support 
cassette storage. 

TEACH YOUR COMPUTER TO TALK. 

For $279 assembled and tested, SuperTalker 
gives your Apple II a voice in the matter. 

AVAILABLE NOW. 

Mountain Hardware’s SuperTalker, Apple Clock 
and 100,000 Day Clock™ (for S-100 bus 
computers) are available through computer 
dealers worldwide. 



S 


Mountain Hardware, Inc. 

LEADERSHIP IN COMPUTER PERIPHERALS 

300 Harvey West Blvd., Santa Cruz, CA 95060 
(408) 429-8600 

Sounds super. 

□ Send me everything I need to know about SuperTalker. 

□ Also information on your Real-Time clocks for Apple II and S-100. 


Name. 


Address. 
City 


. State _ 


-Zip- 


Apple II is a trademark of Apple Computer, Inc. 



NEW POWER FOR 
YOUR APPLE FROM 
MOUNTAIN HARDWARE. 



ROMPLUS+ 


NEW EXPANDABILITY. 

ROMPLUS+ is a peripheral board whose added features 
can turn the Apple * computer into the most powerful 
personal computer available today. 

NEW POWER. 

ROMPLUS+ provides six sockets to accept individually 
addressable 2K ROM’s or EPROM’s. Keyboard Filter™, 
a 2K ROM program, comes installed on the ROMPLUS+ 
board and adds many useful features to your Apple, 
including: 

• Upper and lower case letters. The only system that 
offers keyboard input and standard shift key operation. 

• Multiple user-defined character sets. 

• Colored or inverse-colored letters. 

• Keyboard macros— two key- stroke, automatic typing of 
multiple, user-defined words or phrases. Including 
BASIC and DOS commands. 

• Mixed text and graphics. 

• Improved cursor control. 

•STOP LIST and END LIST. 


• Works with Integer BASIC, RAM or ROM Applesoft, 
and DOS. 

• And more... quick to learn. Easy to use. 

• Software support provided on disk includes 
demonstration programs and two Editors that allow you 
to define your own characters or keyboard macros. 
SOPHISTICATED FIRMWARE. 

In addition to the Keyboard Filter ROM, ROMPLUS+ 
offers five sockets for ROM or EPROM, plus “scratch- 
pad” RAM. And, sophisticated firmware on ROMPLUS+ 
allows one, two, or more of its chips to be used simul- 
taneously for programs longer than 2K. 

EXPANDED UTILITY. 

Many software programs really ought to be utilized 
as firmware. ROMPLUS+ makes that an actuality for 
the Apple by providing six additional ROM sockets. 

AT YOUR DEALER. NOW. 

$169. Complete and tested. Including the powerful 
Keyboard Filter ROM and full documentation. Ask your 
dealer for a demonstration. 



r 



Mountain Hardware, Inc. 

LEADERSHIP IN COMPUTER PERIPHERALS 

300 Harvey West Blvd., Santa Cruz, CA 95060 
(408) 429-8600 


Sounds great. 

□ Please send me all the details on ROMPLUS+ and 
Keyboard Filter. 


Name 

Address 

City State Zip 

Phone 




‘Trademark of Apple Computer Inc. 
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In this article we will be discussing the different file types that 
the APPLE DOS can store, some rudimentary definitions for the 
various disk file structures being used in the computing industry, 
plus an illustrative exampje or two. 

The DOS is equipped to handle four main file types: INTE- 
GER and APPLESOFT BASIC programs, BINARY (machine 
language graphics pages, data tables, etc.) and TEXT (data files of 
all types). 

Since we have already talked about the program— style file, 
we will begin this article with BINARY files. 

As you know, computers are only capable of working with 
binary information — on and off, or 0 and 1. However, a binary 
representation of most numbers is very unwieldy at best. Forex- 
ample, the number 256 decimal is represented (in 16 ‘bit’ format) 
as 0000000100000000,1234 decimal is 0000010011010010. 
Clearly, a better way must be found. On our APPLEs binary in- 
formation is normally given in a numbering system called HEXA- 
DECIMAL, or base 16. In this system the number digits are 0, 1, 
2,3,4,5,6,7,8,9,A,B,C,D,E,F . 

This still leads to confusion for people, but is easy to work 
with in computer programming. For example, the two numbers 
listed above are shown as $0100 (256) and $04D2 (1234). While 
this can hardly be construed as a complete class in the hexadeci- 
mal numbering system, it can serve as background to our discus- 
sion on the storage of BINARY data files using the APPLE DOS. 

The APPLE computer presents numbers in increments of 8 
Binary DIGITS or BITS, called BYTES. Each byte is placed into 
its own space called an address. Since addresses in the APPLE are 
two bytes (16 bits), the largest integer number that can be repre- 
sented is 65535 (64K), What you see if you go into the MONI- 
TOR and list out some data, is what is known as a MEMORY (or 
CORE) DUMP. Some data is classified as machine language pro- 
grams some as misc. data, some may even be a part of a graphics 
display or text. 

The point in this, you may save on disk a piece of memory 
(sometimes called a core image or ‘snapshot’) very easily. 

The DOS command to save binary data to disk is BSAVE. Un- 
fortunately, it’s someshat complicated to do so. As stated in the 
DOS Manual, the syntax of the BSAVE command is: BSAVE 
f, Aa, LJ where f is the file name you want the data saved in, 
‘Aa’ is the starting address of the data, and ‘Lj’ refers to the num- 
ber of bytes of data you wish to BSAVE. 

Addresses and byte lengths can be given either in decimal or 
in hexadecimal (is a $ is added to the address). Therefore if you 
wanted to BSAVE the HIRES page 2 area of memory which runs 
from $4000 to $5FFF hex (16384 to 24575 decimal) to a file 
called HGR PAGE2, either of the 2 statements below would be 
valid: 

BSAVE HGR PAGE2,A$4000,L$2000 -or- 
BSAVE HGR PAGE2‘A16384,L8192 


DOS TIDBITS 

by 

Jerry Rivers 

Note that the length is calculated by subtracting the starting 
address (16384) from the ending address (24575) plus 1. The 
+ 1 is required to avoid saving one byte too few (how many num- 
bers are there between 1 and 9 ??). 

(Naturally, you will have to add on the disk drive slot and 
drive number if required, plus you may want to add a disk vol- 
ume number is not set properly). 

Once you have successfully BSAVEd data to a diskette, that 
part of the task is complete. But how do you get the binary data 
back into memory ?? and, what if a new location to store the 
data in memory is desired ?? 

The command to retrieve binary data is BLOAD. It too has 
a special set of optional parameters to worry about, which we’ll 
cover by example. 

Suppose it is desired to restore the HIRES graphics page we 
BSAVEd above. We can bring it back into memory with: 

BLOAD HGR PAGE 2 

That statement is all that is required to bring back the data in 
HGR PAGE2 to the same memory location it was before. Now, 
let’s stipulate that the graphics data must be restored to ‘page 1 ’, 
not ‘page 2’. In this case we would use: 

BLOAD HGR PAGE2,A$2000 -or- 

BLOAD HGR PAGE 2,A8192 

These two statements perform an identical function, They dif- 
fer only in how the address information is presented. 

It is important to note, however, that some types of data 
CANNOT be relocated in this manner. Machine language pro- 
grams, for example, ordinarily CANNOT be relocated this way or 
they won’t run!! 

APPLE DOS TEXT FILES 

Everything stored on a diskette which is not a BOSIC program 
and not a BINARY data file, is considered to be TEXT. A data 
file of all numbers for use by a program is considered TEXT. A 
mailing list is considered text. Every thing but SAVE or BSAVE 
files are TEXT files. 

In the most general sense, a FILE is an orderly collection of 
data referred to as one unit, normally under one name, the FILE 
NAME (in APPLE DOS, this name can be from 1 to 30 charac- 
ters). 

Inside a FILE are one or more sub-divisions of data known 
as RECORDS. Ordinarily one RECORD is synonomous with a 
line of text string or numeric data. Further sub-divisions are pos- 
sible. For instance, a FIELD is a part of a RECORD and a SUB- 
FIELD is a sub-set of a FIELD. 

Let’s set up a realistic example: Suppose we wanted to define 
a name address, and phone number file. The file might be defined 
like below — 
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FILENAME : MAILLIST 

RECORD ONE PERSON’S DATA 

FIELD 1 LAST NAME 

FIELD 2 : FIRST NAME, MIDDLE INITIAL 

SUBFIELD 1 : FIRST NAME 
SUBFIELD 2 : MIDDLE INITIAL 
FIELD 3 : ADDRESS 

SUBFIELD 1 : STREET NUMBER 
SUBFIELD 2 : STREET NAME 
SUBFIELD 3 : APARTMENT NUMBER 
FIELD 4 CITY 

FIELDS : STATE 

FIELD 6 : ZIPCODE 

FIELD 7 PHONE NUMBER 

SUBFIELD 1 : AREA CODE 
SUBFIELD 2 : PHONE NUMBER 

Even though a computer demands a highly structured way of 
defining and storing data, it can be done in a way conducive to 
good understanding by the PEOPLE the program is supposed to 
benefit. 

Once you have decided WHAT you want to tabulate and re- 
cord, you must then find a way HOW to store the data. This re- 
quires you to know something about FILE STRUCTURE. I 
know you have all heard of buzzwords for file structure, like se- 
quential and random. But what do these words mean ??? 

In a SEQUENTIAL file, all information is physically stored 
in the file IN THE ORDER IT IS WRITTEN TO THE FILE. An 
example of this is an ordinary music tape recorder. When you 
play back the songs, you must listen to them in the order in 
which you first recorded them. If that isn’t what you want to 
hear, your only choice is to ‘fast-forward’ over songs you want to 
by-pass. But, YOU MUST PASS OVER EVERY SONG ONE 
WAY OR ANOTHER. 

Contrasted to a tape recording is the LP phonograph record. 
Here you CAN listen to each song in sequence, OR skip a song 
or group of songs by lifting the stylus and putting it down at the 
location of the song you want to hear next. What you did was 
select a song RANDOMLY!! A cassette tape with your programs 
or data on it is another type of sequential access file structure. A 
diskette is an example of RANDOM ACCESS. 

Within the major grouping of random file structures, other 
sub-groups have been defined such as indexed sequential work 
addressable, keyed sequential, actual key, direct access and many 
others. 

On the APPLE, we’ll have to stick with straight SEQUEN- 
TIAL, and RANDOM access by RECORD number. First we’ll 
cover the sequential file method. 


In a sequential file, you put data on a disk file with a regular 
PRINT statement without worrying about how long a line or 
RECORD of data is. That is, it is a random line length file. 

To take advantage of RANDOM file access you must use a 
FIXED LENGTH RECORD. The upshot of this is that YOU must 
make an effort in your program to keep any line PRINTed to the 
disk the same length. A good way to do this is to ‘pad’ unused 
positions in the record with blanks. 

(More on this in the RANDOM ACCESS example program 
presented later on). A word or two is now in order on the ‘for- 
mat’ of TEXT FILE data on the diskette. As you would surmise, 
since all data stored within the APPLE is encoded using ASCII 
numbers for each character, this would be a logical way to put 
data onto a diskette. In fact this is exactly how it is done (how- 
ever, even though REAL and INTEGER numbers are stored in 
internal binary format, they too go out on the diskette as ASCII 
CHARACTERS). 
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A little known ‘feature’ of APPLE DOS is that all characters 
are ‘packed’ together as they are written to a disk file. Ordinarily 
this is good, since it wastes no space on the diskette. But, a pro- 
blem can arise if you don’t take the packing into account. 

To illustrate this, let us define three variables X, Y, and Z: 
X=1 :Y=2:Z=3. 

If you PRINTed them with PRINT X, Y, Z you would expect 
the output to be: 

1 2 3 

But if you were sending these numbersto a disk file, the record 
would be: 

123 (How’d that happen ???) 

What happened was this: the numbers were ‘packed’ together 
into one string !!! 

Can this ‘feature’ be worked around ??? YES. There are two 
main ways to solve a dilemma of this kind. First, we can always 
print commas (,) between each number or we can print each on a 
separate line of data. Let’s look at both ways: 

PRINT X; Y; Z gives: X,Y,Y 

PRINT X: PRINT Y: Print Z puts each of the variables on its 
own line. 

Anybody care to guess how the APPLE can figure out which 
way we did it?? As is normal for INPUT statements, a comma is 
considered a ‘separator’, so the first method works OK. Lines put 
on a disk by themselves work OK so long as you use a separate 
INPUT statement for each one. 

(What is actually going on is this: at the end of each line of 
data written to a SEQUENTIAL disk file, a carriage return char- 
acter (ASCII 13) is appended to the end of each line. In this way, 
you can use lines of variable length). 


MUSE 

CELEBRATES 

. . . our second anniversary. 

We thank the many Apple owners and retailers who have 
supported our research and development of innovative Apple 
software. 

Entering the 80's, a decade certain to be marked by the rapid 
expansion and increased sophistication of business, educa- 
tional and hobbyist Apple owners, we offer these corporate 
commitments. 

• TO ADVANCE THE STATE-OF-THE-ART IN APPLE 
SOFTWARE. 

We did just that with Appilot II, the most advanced Apple 
computer-assisted instructional language . . . Publication 
of Three Mile Island set the standard for simulation 
gaming . . . MUSE achieved affordable word processing 
with SUPER-TEXT™ providing an unegualled combination 
of features . . . 1980 will see additional software innovations 
from MUSE. 

• TO PROVIDE OUTSTANDING CUSTOMER 
SERVICE. 

Our expanded staff and facilities will provide increased 
product quality assurance and will allow MUSE to con- 
tinue our rapid response to customer and retailer inquiries 
and orders. 

• TO ENCOURAGE INDEPENDENT SOFTWARE DE- 
VELOPMENT. 

MUSE believes the independent programmer should 
have access to private sector distribution for his or her best 
efforts. Our software-author royalty plan can provide a 
significant source of income for the talented free-lance 
programmer. 

Write for our free catalog, software submission guidelines 
and the name of your local computer store carrying 
MUSE products. 

MUSE SOFTWARE 330 N. Charles Street 
Baltimore, MD 21201 (301)659-7212 
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Now that we’ve specified the structure of our file, all that’s 
left is to OPEN the file to WRITE to it and we’re done. 

Wait a minute!!! What’s this OPEN and WRITE business all 
about??? 

On large mainframe computers, programs are normally avail- 
able to automatically take care of all the disk files whether you 
are sending data to them or taking data from them. In order for 
a file to be available to you it must be OPENed. just like you 
must open a door to enter your house. The big computers take 
care of this for you but with APPLE DOS, we are on our own. 

Once a file is OPEN, we must then tell the DOS if we are 
putting data onto our disk (WRITE) or getting data back that is 
already there (READ). Lastly, when we have finished with the 
file, we always CLOSE it to prevent loss of data. 


Let’s examine the syntax for each: 


OPEN 

F 

(,Lj) 

(,Ss) 

(>Dd) 

READ 

F 

(,Rr) 

(>Bb) 


WRITE 

F 

(,Rr) 

(>Bb) 


CLOSE 

(F) 

(,Ss) 

(,Dd) 

(>Vv) 


(I will cover two more commands, APPEND and POSITION 
in a later DOS article) 

In each of the statements above: 

F is the FILE NAME 
L is the record character length 
R is the record number 
B is the byte number 
S is the disk controller slot ft 
D is the disk drive no. 1 or 2 
V is the diskette volume number 

Parentheses ( ) indicate optional parameters you may use if 
needed. 

Looks awfully complicated. Not really. 

First off, the parameters L, R, and B are only used in RAN- 
DOM access files. S and D are only required if you have two or 
more disk drives and controllers. The volume number is no prob- 
lem: just put a number in for the volume number you are using 
or simply use VO. 

Below is a very small program to WRITE three variables to 
disk then READ them back again (APPLESOFT PROGRAM). 

10 D$=CHR$(4) : REM CTRL D 

25 INPUT 'WHAT FILE NAME ?";F$ 

30 PRINT D$; "OPEN ";F$: REM OPEN FILE 
35 PRINT D$;"WRITE ";F$. REM WRITE SET 
40 S=1 :Y=-2:Z=3.3:REM DEFINE VARIABLES 

45 REM 

50 REM FILE OPEN, PRINT DATA 
55 REM 

60 PRINT X:PRINT Y:PRINT Z 

65 PRINT D$; "CLOSE ";F$:REM CLOSE FILE 

70 REM 

75 X=0:Y=0.Z=0. REM CLEAR VARIABLES 

80 REM 

85 REM RETREIVE DATA FROM DISK 
90 REM 

95 PRINT D$;"OPEN ";F$:REM RE-OPEN FILE 
100 PRINT D$; "READ ";F$:REM READ SET 
105 REM 

110 REM NOW INPUT DATA INTO MEMORY 
115 REM 

120 INPUT X:INPUT Y:INPUT Z 

125 PRINT D$; "CLOSE ";F$:REM CLOSE FILE 

130 PRINT "VARIABLES READ FROM DISK" 

135 PRINT X,Y,Z:REM PRINT RESULTS 

140 END 


You may remember from last month’s discussion on the DOS 
that a special character (CTRL D) is required to tell the DOS that 
a disk command is coming. This program uses a string variable D$ 
as a convenient way to get the required CTRL D into the PRINT 
statements. Notice too that no NOMON command was issued. 
This was left out intentionally so that all data going to and from 
the disk would be visible to the user. 


Let us now define our RANDOM ACCESS example problem. 
We’ll write to disk the names and titles of the officers of our club. 
The RECORD structure is explained in the program. One REC- 
ORD is 32 characters long, so we must OPEN the RANDOM file 
with a length of L33 (to allow for the carriage return character 
(ASCI I 1 3) that is put at the end of each line. 

50 REM RANDOM FILE EXAMPLE 

60 HOME:PRINT :PRINT 

80 PRINT "DO YOU WANT TO SET NOMON?"; 

90 INPUT "Y/N ";A$:HOME 
95 D$=CHR$(4):REM 'CTRL D' 

100 PRINT D$; "MON IcD.)" 

105 IF A$="Y" THEN PRINT D$;"NOMON l,C,D" 
110 HOME: PRINT "DEFINING DATA . . . :PRINT 
120 DATA DONETH, JOE, PRESIDENT 
130 DATA VELASCO, AL, V.P. (ADMIN) 

140 DATA RIVERS, JERRY, V.P. (TECH INFO) 

150 DATA AYALA, JIM, SECRETARY 
160 DATA SOPALA, HOHN, TREASURER 
200 REM 

210 REM RECORD STRUCTURE IS - 
220 REM 

230 REM FIRST NAME - 6 CHARACTERS 
240 REM LAST NAME - 10 CHARACTERS 
250 REM TITLE - 16 CHARACTERS 
260 REM TOTAL - 32 CHARACTERS 
300 DIM S$(5,3): REM 5 RECORDS, 3FIELDS 


NEW APPLE ] [ SOFTWARE 


All Programs written in Integer BASIC for 16K 

INTRODUCTORY PRICE 
(Till 1/30/80, after adc $2) 
CASSETTE DISK 

-SOFTBALL/TANK $12.95 $16.95 

by Dave Redhed 

Two Arcade Games in Low Res for 
two players. 

-CHARACTER TRAITS/PSALMS 16.95 


by Dave Redhed 

Two classic CAI programs. CT is 

based on the card game Character Clues. 

Psalms are scriptural quotations 
dependent on your mood. 

-TOUCH TYPING TUTOR 12.95 16.95 

by Bill Massena 

Improve your typing. Four lessons. Three 
preprogrammed lessons; Finger Builders, 

General Typing, and BASIC Language. One 
you can input yourself. Tracks your speed 
and error count. 


-FOLLOW THAT TUNE 

by Bill Massena 

A musical game of "Simon Said." For 
up to 4 players. 

See your Dealer or write 


9.95 13.95 


COMPUTER SERVICES COMPANY 
14109 S.E. 168th St. 
RENTON, WA 98055 


Washington residents add 5.3% State Tax 
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310 D$=CH R$(4): REM CTRL D 
320 REM 

330 REM 'READ' IN NAMES & TITLES 
340 REM 

350 FOR 1=1 TO 5:REM # OF RECORDS 
360 FOR J=1 TO 3. REM # OF FIELDS 
370 READ S$(I,J): REM READ NAMES 
375 PRINT S$(1,J);""; 

380 NEXT J:PRINT :NEXT I 
390 REM 

400 REM PAD DATA FIELDS 

410 REM 

420 FOR 1=1 TO 5 

440 L=LEN(S$(I,1): REM LAST NAME LENGTH 
460 FOR K=L+1 TO 1Q:S$(I,1)=S$(I,1)+" " 

480 NEXT K:REM PAD LAST NAME 

500 l=LEN(S$(l,2)):REM 1ST NAME LENGTH 

520 FOR K=L+1 TO 6:S$(I,2)=S$(I,2)+ " " 

540 NEXT K:REM PAD FIRST NAME 

560 L=LEN(S$(I,3)):REM TITLE LENGTH 

580 FOR K=L+1 TO 16:S$(I,3)=S$(I,3)+ " " 

600 NEXT K:REM PAD TITLE 
620 NEXT l:REM DO 5 RECORDS 
640 REM 

660 PRINT :PRINT "CREATE RANDOM FILE..." 

680 REM 

700 PRINT D$;"OPEN RNDFIL,L33" 

720 REM 

740 FOR R=1 TO 5 

760 PRINT D$; "WRITE RNDFIL,R";R 

780 PRINT S$(R,1)+S$(R,2)+S$(R,3) 

800 NEXT R:REM WRITE 5 RECORDS 
820 PRINT D$; "CLOSE":REM CLOSE FILE 
840 REM 

860 PRINT :PRINT "READ DATA BACK IN"; 
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865 PRINT " REVERSE ORDER . . .":PRINT 
870 PRINT " M 14 # MICHIGAN APPLE OFFICERS#" 
880 PRINT :REM OPEN FILE FOR READ 
900 PRINT D$;"OPEN REDFIL,L33" 

920 FOR 1=5 TO 1 STEP -1 

940 PRINT D$; "READ RENFIL,R";I 

945 INPUT A$:REM GET RECORD FROM DISK 

950 REM 

955 REM RE-ARRANGE DATA FIELDS 
960 REM 

1980 PRINT MID$(A,11,6);.REM 1ST NAME 
985 PRINT LEFT$(A$,10);:REM LAST NAME 
990 PRINT MID$(A,17,16):REM TITLE 
995 NEXT l:REM READ 5 RECORDS 
1000PRINT D$;"CLOSE":REM CLOSE FILE 
1020PRINT D$;"MON l,C,0" 

As can easily be seen by looking at the code in lines 180-220, 
the data set is created with last name first, and that is how it is 
stored on the disk. Lines 440-520 take care of ‘padding’ each of 
the fields to the same number of characters to preserve the re- 
quired fixed length record size. 

Note that a RANDOM file generally must be created the 
FIRST time by writing the data sequentially using the RECORD 
NUMBER as the ‘KEY’. Once created, data may be READ in any 
order desired, as witnessed by lines 700-790 which READ the 
data in reverse order. 

By now, you’ve probably figured out the major drawback to 
RANDOM files in APPLE DOS: YOU must at all times be aware 
of the RECORD number of all your data if it is to be retrieved 
non-sequentially. 

(How the record numbers are kept track of is the subject of 
later DOS articles on a technique known as INDEXING). 


APPLE SOFTWARE DIRECTORY 


rAppym 


VOLUME ONE $4.95 
VOLUME TWO $4.95 


WE PAY SHIPPING 


f^ORyl 


The APPLE SOFTWARE Dl RECTOR, ES are your best bet for 
locating software programs. We will send you the latest 
edition containing over 1000 programs, descriptions, prices, 
AND the name and address of the people who have it. The 
APPLE Software Directory is divided into two volumes: 

VOLUME ONE contains BUSINESS and Finance, Investment, 
and Utility programs. 

VOLUME TWO contains GAMES, Entertainment, Education, 
and Utility programs. 

' APPLE Resource Directory 

A BRAND NEW Reference for the APPLE Owner. Contains 
all the things that can be used or interconnect with the 
APPLE such as boards, accessories, peripherals, and 
gadgets. You will be surprised to find that so many different 
items have been produced to support the APPLE. Contains 
descriptions, names, and addresses where the items can be 
found. Not a catalog. . .. 

$4.95 postpaid 


VIDEO 


Box 10 BASF DISKS $35.00 

SPECIAL ITEMS 

ABBS Apple Bulletin Board System on disk 49.95 

Tractor Feed MAILING LABELS One up 1000/6.00 

5000/24.00 

Male UHF to Female Phono Adaptor-APPLE to Monitor 4.25 
DISK LABELS White 1 .25X4 Pressure Sensitive 100/5.50 
Six Outlet Junction Box with Switch-UL app. 21.50 


APPLE II Video Cables 

Super quality molded video cables to interconnect 
APPLE to a Television or Monitor. 

PHONO TO PHONO 


Norelco Type CASSETTE Boxes 
Case of 100 


EACH .25 
.19 


4400 6’ 4.95 

4402 12’ 5.95 

4403 25’ 9.95 


UHF TO PHONO 

4412 3’ 

4404 6’ 

4405 12’ 

4406 25’ 


F CONNECTOR TO PHONO 


BLANK CASSETTE LABELS - White 1000/35.00 

CUSTOM PRINTED CASSETTE LABELS 1000/59.00 

D.C. HAYES MicroModem for the APPLE SPECIAL 349.00 



DEALERS: WRITE FOR QUANTITY PRICES 


■ ■*■*■■■ JBBnHHMHHHMHHUUUBaUU 


PLEASE SEND ME:. 


Name [please print] . 


WSDL 


5245 West Diversey, Chicago, Illinois 60639 
(312) 622-9606 


chicAqo 


WE CAN NOT SHIP OPEN ACCOUNT □ Send FREE APPLE ACCESSORY Catalog 


APPLE II IS A TRADEMARK OF THE APPLE COMPUTER CO. 




INTRODUCING . . . NIBBLE 
TBE REFERENCE 
FOR APPLE COMPUTING 


nibble 


s« NIBBLE 18: 

A SOFTWARE GUIDE for high quality Applications 
Programs for your Home and Business. 



NIBBLE 18: 

A REFERENCE GUIDE to new Programming Methods . 

NIBBLE IS: 

A BUYERS GUIDE for making purchase decisions on 
new products. 

NIBBLE IS' 

A CONSTRUCTION PROJECT COOKBOOK for adding 
function and value to the system you already own. 

NIBBLE IS° 

A COMMUNICATIONS CLEARING HOUSE for users, 
vendors, and associations. 


Each issue of NIBBLE features at least one significant new application program of 
commercial quality. The programs in NIBBLE are surrounded with articles which show 
how to USE die programming methods in your OWN programs . 

Examples of upcoming articles: 

□ Modeling and Forecasting Your Business □ Build a Two-Tape Controller for $ 12 

□ Arcade Shooting Gallery — Save Your Quarters ! □ Data Base Management 
System I, II, III 


And many many more ! NIBBLE will literally ‘ ‘Nibble Away’ ’ at the mysteries of your 
system to help you USE IT MORE. In 1980, the principal featured system is the Apple II. 


Try a NIBBLE 


©1980 by micro-Sofitware Publishing 
and Research Co. , 

Lincoln, Mass. 01773. All rights reserved. 
* Apple II is a registered trademark of 
Apple Computer Company 


I nibble 

I BOX 325 Lincoln, Mass. 01773 

I I'll try NIBBLE! 

Enclosed is my 815 for 8 issues. 
□ check □ money order 

Name 

| Address 


1 City t 

j State Zip 

I... — --------J 




3% BCD A/D Converter 
#7470A 


Programmable Interrupt Timer Module 
#7440A 


Arithmetic Processor 
#781 IB 


GPIB IEEE 488 Interface 
#7490A 


Asynchronous Serial Interface 
#771 OA 


Parallel Interface 
#7720A 


3% BCD A/D Converter. Converts a DC vol- 
tage to a BCD number for computerized moni- 
toring and analysis. Typical inputs include DC 
inputs from temperature or pressure trans- 
ducers. Single channel A/D, 400 ms per con- 
version. Lots of potential. 

Suggested list $149.95 


Arithmetic Processor. Interfaces with Apple- 
soft, so you just plug in and run. Based on the 
AM 9511 device, provides full 16/32-bit arith- 
metic, floating point, trigonometric, logarithmic, 
exponential functions. Programmed I/O data 
transfer, much much more. Not available in kit. 
(Not currently compatible with Apple II Plus.) 

Suggested list $399.95 


Programmable Interrupt Timer Module. Time 
events in four operating modes — continuous, 
single shot, frequency comparison, and pulse 
width comparison. Includes three 16-bit inter- 
val timers, plus flexible patch area for external 
interface. Programmable interrupts, on-board 
ROM, and much more. 

Suggested list $119.95 


For serious users with serious uses for the Apple II computer, CCS 
manufactures a growing line of powerful card components. To 
find out just how much computer an Apple II can be, check out 
the whole California Computer Systems line at your nearest 
computer dealer, or send for literature. 

California Computer Systems • 250 Caribbean • Sunnyvale, California 94086 • (408)734-5811 


Apple II is a trademark of the Apple Corporation. Prices shown are for assembled and tested components. Kits are available. 
CCS manufactures many other Apple components, plus components for the S-100 bus. 


Parallel Interface. Two bi-directional 8-bit I/O 
ports will connect your Apple to a variety of par- 
allel devices, including printers, paper tape 
equipment, current relays, external on/off de- 
vices. Full featured, programmable interrupts, 
supports DMA daisy chaining. 

Suggested list $119.95 


Asynchronous Serial Interface. Fully RS- 
232-C A thru E 1978 standard, this card will 
drive a variety of serial devices such as CRT 
terminals, printers, paper tape devices, or 
communicate with any standard RS-232 de- 
vice, including other computers. Full hand- 
shaking, and fully compatible with Apple 
PASCAL! Suggested list $159.95 


GPIB IEEE 488 Interface. A true implementa- 
tion of the IEEE 488 standard — the standard 
protocol for instrumentation and test devices. 
Control and monitor test instruments such as 
digital voltmeters, plotters, function genera- 
tors, or any other device using the IEEE 488 
protocol. Suggested list $300.00 
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FLASH CARDS - A TUTORIAL PROGRAM 

by 

Rick Williams and Val J. Golding 


The original program FLASH CARDS and an accompanying 
article by Rick Williams originally appeared in the September, 
1979 Call — A.P.P.L.E., and a subsequent modification which pro- 
vided a data base system for it appeared in October, as the result 
of a telephone call asking for a means of using a data base with it. 

We have found through experience that a new routine almost 
always leaves something to be desired, and the Flash Cards Data 
Base proved to be no exception. In the instant case we have taken 
the concept of creating a data base for Flash Cards and started 
from scratch. It is a hard lesson, but we have learned, and wish to 
also pass on to our readers, that the user should do NOTHING 
that the computer can do for him. This left us with two design 
parameters (read problems): 

1. That the user need not actually enter more than one line 
number nor the word DATA, 

2. The menu must be so constructed as to allow it to be added 
to by the program. 

The former was easy to accomplish, as it required only format- 
ting the data elements before they were written to disk. The lat- 
ter required considerably more thought. As it turns out, the menu 
is written so that the strings that compose it each have a length 
of one, unless a data base already exists for that item. Therefore 
the program searches for the first string that does not have a 
length greater than one, and after finding it, opens a temporary 
text file, writes the name of the new data base to it, and EXEC’s 
it back into memory as a program line. The program then goes on 
to write the actual data base. 

The reader is also alerted that lines 100 to 104, which contain 
six French vocabulary items as a short demonstration, must be 
actually written to a text file if their further use is desired. At the 
same time, line 801 1 must be changed to read: 

8011 F$(1) = "1" 

so that the program will write the name of the COLORS data 
base in the correct line of the menu. 

To create a new data base, simply select “0” from the menu 
and you will be prompted as to when to enter your data, which 
will be in the form of question and answer pairs. When all of the 
data has been entered, the program will then complete writing the 
new data base to disk, reSAVE the Flash Cards program (in order 
to retain the newly added menu item) and return the user to the 
menu where he or she may select and run any of the existing 
data bases, including the one just added. 

For those who may not be familiar with the EXEC command, 
it is one of the most powerful tools you can use with your Disk II. 
In a nutshell, an EXEC file is a text file which is written in 
such a manner as to simulate the direct keyboard entry of com- 
mands and program lines, etc. When DOS receives an EXEC com- 
mand it then reads the file, one record at a time onto the screen 
and into the keyboard buffer, where they are executed exactly 
the same as if the user had typed them in directly from the key- 
board. 


Anyone who had had to memorize a foreign language vocabu- 
lary, the capitals of the fifty states, or any series of question-ans- 
wer pairs, has probably used flash cards. The applicable “ques- 
tion” on. one side of a 3x5 card, and the “response” on the other. 
In spare moments one shuffles the cards and goes through them, 
one by one, reading one side and trying to guess — and eventually 
remember — what is written on the other. The cards are then 
shuffled again and the process is repeated. 

Here is a short program that simulates such a deck of flash 
cards. The question-answer pairs appear in lines 100-998 as data 
statements in the form: 

100 DATA question, answer, question, answer . . . You may 
use as many pairs as you wish, subject to available memory, and 
the data items may be of any convenient length. The program 
counts the number of pairs and drills you on them in random 
order by presenting the question, pausing, and then presenting 
the answer. Each pair is presented once and only once until the 
entire “deck” of flash cards is read. A bell then signals you that 
the cycle is complete and begins again in a different random order. 


SOFTWARE for the APPLE II* 

★ Designed by educators for educators 

★ Field tested in schools 

★ Real educational value 

★ Low cost 

Educators disk special $19.95** 

14 instructional programs 

Typing $14.95** 

instruction and drill on touch typing 
5 programs, 19 text files 

Catalog Writer $19.95** 

a word-processing tool for preparing a 
descriptive catalog of programs or other items 

Apple PILOT $25.00** 

CAI Author Language interpreter — 
by Earl Keyser 

COOK’S COMPUTER COMPANY 

1905 Bailey Drive 
Marshalltown, Iowa 50158 

Ask for our latest list of educational programs. 

★ APPLE II is a registered trademark of Apple Computer, Inc. 
**Please add $1 per order for shipping and handling. 
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The main virtue of this tutorial is that, unlike many, the entry 
of your own material is neither fussy nor limited to a certain num- 
ber of items in a certain format. The program is as easy to use and 
as effective as flash cards themselves. 

Lines 1080 and 1100 may be modified to create any conveni- 
ent pause. For keyboard control, substitute “GETZS'” in these 
two lines. 

3LIST 

10 REM FLASH CARDS 

BY RICK WILLIAMS 


1080 FOR Q = 0 TO 9991 NEXT 
1090 INVERSE 1 HTAB 18 1 PRINT A$ 
<J)J NORMAL 

=100 FOR Q = 0 TO 9991 NEXT 
1110 NEXT 

1120 PRINT CHR* <7> 

1130 GOTO 1030 1 REM 

8000 REM DATA BASE WRITER FOR 
FLASH CARDS 

BY VAL J GOLDING 


20 CLEAR 1 GQSUB 80001 HOME 1 VTAB 8010 DIM F*(9)l REM MENU STRINGS 
41 PRINT "THE FOLLOWING FLAS 8011 F$( 1 ) = "1 COLORS” 

H CARD DATA BASES ARE AVAILA 8012 F$( 2 ) = "2" 

BLE" 8013 F$( 3 ) = "3” 

30 VTAB 81 HTAB 41 PRINT F*( 1 >1 HTAB 8014 F$( 4 ) = ”4” 

41 PRINT F$( 2 )1 HTAB 41 PRINT 8015 F$( 5 ) = "5" 

F$( 3)1 HTAB 41 PRINT F*(4)l HTAB 8016 F$( 6 } _ ...» 

41 PRINT F$< 5 ) 1 HTAB 41 PRINT S 017 F$< 7 > = “7“ 

F$( 6 ) 1 HTAB 41 PRINT F*(7)l HTAB 8018 F$<8> = “8" 

41 PRINT F*( 8 ) 1 HTAB 41 PRINT 8019 F$( 9 ) = "9" 

F$( 9 ) 

40 VTAB 201 INVERSE 1 HTAB 41 PRINT 8100 FOR I * 1 TO 91 IF LEN ( F* 
” SELECT DATA BASE FROM MENU ( I ) ) = 1 THEN A = 1 1 GOTO 8l 

"1 HTAB 41 PRINT "OR 0 TO C 201 REM WRITE NEW ITEM 

REATE NEW DATA BASE" TO MENU 

50 D* = CHR$ (13) + CHR* (4)1 GET 
A$ 

60 NORMAL 1 IF A* = “0" THEN 900 


0 

70 A = VAL ( A$ )1 FILE* = RIGHT* 
(F*(A)* LEN ( F$( A ) ) - 3) 

80 PRINT BVEXEC" ?FILE*1 END 1 REM 


100 DATA ROUGE i RED y NQI R * BLACK 
102 DATA JAUNE ? YELLOW r VERT s»GREE 
N 

104 DATA ARGENT ? SILVER ? BLANC * WH 
ITE 

999 DATA ***1 REM 

1000 READ Q$ » A$ 1 N = N + 11 IF G$ 

< > THEN 1000 

1010 RESTORE IN' * N - 11 DIM A( N 
)»Q$( N )f A$( N ) 

1020 HOME I PRINT 

1030 FOR I = 1 TO N 1 A( I ) = II NEXT 

1040 FOR J = 1 TO NIX = INT ((N 

- J + 1 ) * RND ( 1 ) + 1)1 READ 

Q$( A( X ) )> A$< A( X ) ) 1 A( X ) = A(N 

- J i 1)1 NEXT 1 RESTORE 

1050 FOR J = 1 TO N 
1060 PRINT 

1070 HTAB 61 PRINT a$(J)5 


CCA Data Management System 

for 


TRS-80 ^ APPLE-II * MICROPOLIS 


• Maintains ALL of your data files. Files such as 
inventory, mailing lists, payroll, A/R, A/P, 
patient history, and customer lists are easily 
processed. Uses for the CCA DMS are limited 
only by your imagination. 

• Data in any file can be added, updated, deleted, 
inspected, or scanned for. 

• Produces automatically formated reports or 
mailing labels on the screen or the printer. User 
may select fields, titles, editing, totals, sub- 
totals, and more. 

• Files may be sorted into any sequence using up 
to 10 sort keys. 

• Extensive yet easy to understand documentatioa 

• A professional, proven system - in the field 
since early 1978. 


SYSTEM 

STORAGE 

REQUIRED 

MAX# RECDS 
PER FILE 

PRICE 

TRS-80 

32K 

2400 

$74.95 

APPLE II with 
ROM 

APPLESOFT 

32K 

3500 

$74.95 

APPLE II with- 
out ROM 
APPLESOFT 

48K 

3500 

$74.95 

MICROPOLIS 

32K 

1000 

$150.00 



Creative Computer Applications 


2218 Glen Canyon Road 
Altadena, CA 91001 
(213) 798-4529 


DEALER 

INQUIRIES 

INVITED 
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8110 

8120 

8140 

8150 

8160 

8170 

8180 

8190 

9000 

9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 


NEXT 

PRINT D$" OPENTEMP" D$’* WRITET 
EMP" 

PRINT 8010 + A" F$( "A" )=” CHR$ 
( 34 ) * A“ *A$? CHR* < 34 ) 

PRINT "RUNS 180“ 

PRINT D$“ CLOSE" 

PRINT D$”EXECTEMP" * END 
GOSUB 8000 1 FOR I = 1 TO 9! 

IF LEN ( F$< I ) ) = 1 THEN A$ 

= RIGHTS ( F$( I - 1 )* LEN ( 

F$( I - 1 >) - 3)1 GOTO 9020 
NEXT 1 REM 


INPUT "WHAT NAME FOR NEW DA 
TA BASE " f At> 

D$ = CHR$ (13) + CHRf (4)1 
GOSUB 81001 REM GO ADD TO 
MENU 

LINE = 100HNCR = 2 1 D$ = CHR$ 
(13) + CHR$ (4)1 PRINT D$"D 
ELETETEMF" , D$ , 'OPEN” ) A*! REM 
OPEN NEW DATA BASE 

HOME 1 VTAB 21 PRINT "INPUT 
TWO DATA PAIRS (FOUR WORDS) 

II 

FOR I ~ 1 TO 4? INPUT HTA$< 

I )♦ NEXT : PRINT D$ “ WRITE’* A$ 


CLONE YOUR TEXT FILE! 

Ever have a text file that you wanted to transfer from 
one disk to another disk, only the destination disk 
already had data on it you wanted to keep? Or maybe 
you have a large file of names in a mailing list which 
you can’t copy because each attempt stops with an 
I/O ERROR. Feel frustrated? We did, until we did some- 
thing about it. 

How would you like to be able to copy a file, split a 
file, merge files, copy records to an existing file 
without disturbing the remainder of the file, or repair 
files with blown sectors? And all at high speed? 

DATACOPE TEXT FILE COPY 

by C. V. Duplissey 

will do all of this and more. All disk input and output 
is done at binary read and write speeds. It can be used 
with one or more disk drives and automatically 
minimizes diskette switching. Frequently used copy 
information can be saved for repetitive use. It is 
compatible with the ‘Apple II, ‘Apple II plus, and 
‘Apple Language System in BASIC. One or more Disk 
M’s are required or one or more eight inch disk drives 
with the Sorrento Valley Associates controller card. 

Available now for just $34.95, including a diskette 
with programs and a full-size, comprehensive manual. 
To order a copy, or to get the name and address of your 
nearest Datacope software dealer, call 1-501-666-6561 
or write: 

Datacope 

P.O. Box 55053, Hillcrest Station 
Little Rock, Arkansas 72205 
‘Apple II and Apple II plus are registered trademarks of Apple 
Computer Inc., Cupertino, California. 


IF LINE = 100 THEN PRINT M 
DEL 100*998" 1 REM SCRAP OLD 
DATA STATEMENTS 

PRINT " "LINE" DATA " * 1 FOR 
I = 1 TO 41 PRINT DTA*<I)»i IF 
I < > 4 THEN PRINT " r " i 1 REM 

ADD BASIC LINE FORMAT THEN 
WRITE TO DISK 

NEXT 1 PRINT 1 PRINT D$"CL0 
SE" 1 PRINT "WRITE MORE DATA 
PAIRS ?" 1 GET Y$ 1 IF Y$ < > 

"Y” THEN 9090 

LINE = LINE + INCR1 PRINT B$ 

" CLOSE " D$ " APPEND” A$ 1 GOTO 90 
401 REM WRITE NEXT GROUP OF 
DATA 


PRINT D* ” APPEND " A$ f D* " WR I TE 
" A$ 1 PRINT "RUN 100 " 1 PRINT B 
f" CLOSE" 1 HOME 1 UTAH 81 HTAB 
61 PRINT A$” DATA BASE COMPL 
ETED.” 1 PRINT 1 PRINT “SAVIN 
G FLASH CARDS TO DISK" 1 PRINT 
Df "SAVE FLASH CARDS"! GOTO 2 
01 REM WRAP IT UP 



TWICE THE BYTEM 


8” DISK CONTROLLER 


APPLE DOS COMPATIBLE 

• DOUBLES APPLE H ,m STORAGE 

• SHUG ART 800/801 COMPATIBLE 

• STANDARD IBM lm 3740 FORMAT 

• CP/M ,m ,UCSD PASCAL"" CAPABILITY 

Available at your local APPLE Dealer: $400. 


2 ™> 


SORRENTO VALLEY ASSOCIATES 

11722 SORRENTO VALLEY RD. 

SAN DIEGO, CA 92121 
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APPLESOFT MEMORY) MOVE 

Much has been said in recent articles about how to do a mem- 
ory block move from Integer Basic. It’s almost as simple to do it 
from Applesoft. You just have to poke a short machine language 
routine into memory first. 

] LIST 100-120 

100 POKE 768,160: POKE 769,0 . 

110 POKE 770,32: POKE 771,44 

120 POKE 772,254: POKE 773,96 

This routine does a couple of things when called. It loads the 
“Y” register with a zero (LDY $ ft 0), calls the monitor memory 
move routine, then returns to Applesoft. 

Here’s a short subroutine that will move the contents of text 
page 2 into text page 1 : 

] LIST 200-250 

200 REM 

MOVE PG2 TO PG1 

210 POKE 60,0: POKE 61,8 

211 REM START OF BLOCK 

220 POKE 62,255: POKE 63,11 

221 REM END OF BLOCK 

230 POKE 66,0: POKE 67,4 

231 REM START OF OBJECT MEMORY 

240 CALL 768: RETURN 

241 REM DO THE MOVE 

That’s all there is to it. Have fun. 


[cippkzGomputer 

SOFTWARE 
ACCESSORIES 
SUPPLIES 


ONE STOP SHOP 

Now you can 
purchase all of your 
Apple II items with an 
armchair convenience 
from one source. 
SUBSTANTIAL SAVINGS 
You receive discounts based 
on volume purchased. 
ULTRA-CURRENT 
You’ll be the first to learn 
of new releases. 


BUYERS 

GUIDE 



TO ORDER send $3.00 
You receive current BUYERS 
GUIDE and a certificate 
worth $3.00 off of your 
first purchase. 
Dealer Inquiries Invited 


WALLACE COMPUTERS, 
ACCESSORIES and SUPPLIES, inc. 
2513 N. Sheridan Rd. Peoria, Illinois 61604 
309 - 685-7876 


Heuristics 

SpeechLink™ 

2000 


Talk To Your Computer . . . 

• Voice data entry to the Apple® 
computer 

• Voice control of your Apple® 
system 

• User variable vocabulary 
(64 words and up) 

• Applesoft & Integer Basic 
compatible with or without 
disk operating system 

Useful For . . . 

• Collecting inventory data 

• Running the Apple® as a terminal 

• Controlling production test 
equipment (say “test 2”) 

• Menu selection of programs 
(say “stocks”) 

• Entering stock market data 

• Educational programs forthe kids 
(say “square”) 

See your computer dealer. 

Model 2000 suggested retail price 

$259, model 20A $189. 

Heuristic* 

INC 

1285 HAMMERWOOD AVENUE 

SUNNYVALE, CALIFORNIA 94086 

408/734-8532 


Apple® is a registered trademark of Apple Computer Corporation 




TEXT EDITOR 

The Text Editor is a fast, simple to use program designed for the small 
business or personal user. Text is processed in memory on a line by line basis. 
When the user is finished with the text, he may print it and/or save all or part of it to 
disk for later use. Upper and lower case operation is fully supported. If the 
computer has a hardware adapter (such as the Dan Paymar board) true 
upper /lower case is displayed. 


MAILING LIST 

500 Names and Addresses per 5 X A inch diskette. Provisions are included to split 
files between diskettes giving virtually unlimited storage capacity. Any name on a 
diskette can be retrieved within 3 seconds. Names and addresses can be sorted in 
either Alphabetical or Zip code order. The sort typically requires less than 2 seconds 
to process 500 names. 


FORM LETTER 

The Form Letter package is designed to combine files from our Text Editor and 
Mailing List programs to enable the user to print out customized letters — such as 
advertising, notices, and so on. A model letter is created using the Text Editor. The 
user embeds special character strings in the body of the letter. When the Form Letter 
is run, these special strings are replaced by information contained in the Mailing 
List records. 


DAN’S DISK UTILITIES 

The Dans Disk Utility Program [DDU] allows the user to directly examine and/or 
modify data on any trace and sector of a diskette. This program can be used to: 

• Enter patches to machine language programs on diskette. 

• Recover a file that was accidentally deleted. 

• Determine correct file sizes. 

• Examine text files to check program operation. 

INTEGER 


PASCAL UTILITY MICROMODEM PACKAGE [PUMP] 

The Pascal Utility Micromodem Package is a set of intrinsic functions designed to 
facilitate the use of the D.C. Hayes Micromodem II with Apple/UCSD pascal. All 
the functions and procedures have been placed into an intrinsic unit and the unit 
has been placed in the SYSTEM. LIBRARY on the diskette we supply. We also 
include a routine for those users that have Dan Paymar's Lower Case Adapter, that 
modifies BIOS to allow the display of lower case characters. 


MEMO CALENDAR 

The Memo Calendar is designed to perform the functions of a diary and a memo 
pad/ calendar. The user enters an 80 byte “memo," and assigns a date to it. You can 
call up any dates memos on the screen at any time. 

APPLESOFT 


APPLE BULLETIN BOARD SYSTEM 

The Apple Bulletin Board System [ABBS] implements a personal computer based 
message storage and retrieval system on a 48K Apple II computer. The system is 
configured to automatically answer incoming phone calls through the use of a D.C. 
Hayes Micromodem II. Once it has answered the phone, and connection has been 
made with a computer or terminal at the other end of the line, the program 
determines the baud rate of the caller, and leads him through a small sign-on 
routine. After the caller is logged-in, he is welcomed to the system, and shown any 
announcements that the SYSOP wishes to place on the ABBS. He is then given 
limited control of the system, and can leave messages, or scan and read messages left 
by others. 


SINGLE DISK COPY 

The single disk copy program is intended for those Apple users who do not have two 
disk drives, but still need to copy diskettes for back-up purposes. The single disk copy 
program operates by reading as many sectors as your Apple's memory can hold, and 
then writing the sectors back out onto the copy diskette. 

INTEGER 




80x24 Video Dispiay 

with Upper and Lower Case 


Works with Apple II*, Apple II Plus*, and PASCAL 
Full 96 ASCII character set 
Fully programmable cursor: 

1-9 lines any position 

Blinking (2 speeds) and non-blinking 


• Shift Lock Feature 

• Built in Light Pen capability 

• Inverse video 

• Full cursor control 

• 50/60 Hz operation 


All software included for BASIC (optional for PASCAL) • No conflict with other boards using $C800 to $CFFF 


Introductory Sale Price 


$195 


OO 


Compatible with the latest in word processing software “Apple-Pie 2.0” 


► PASCAL software interface available for $25.00 additional 
**Forall orders received before midnight, April 30, 1980 
Deliveries start end of February • Allow up to 4 weeks for shipment. 
All Mail orders add $3.00 for postage, insurance and handling 


Calif. Residents add 6% Sales Tax 


* Apple is a Registered TM of Apple Computers, Inc 


The Computer Stop 
16919 Hawthorne Blvd. 
Lawndale, CA 90260 

(213) 371-4010 


MON. - SAT. 
10-6 
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This note will discuss ways of “bootstrapping” the Apple Disk 
software without using the ROM that is built into the disk con- 
troller card. Whatever for, you ask? Those who have the language 
card and who have heavy investments in Integer and Applesoft 
software may find it useful. A person who has the standard lan- 
guage card may be doing program development in BASIC, and 
may, during the course of the debugging process, cause fatal 
changes in DOS. If a BASIC loader is stuck away in a portion of 
the language card that BASIC does not use, one can reboot directly, 
without using the Pascal BASIC disk. My personal interest is the 
converse. My family uses BASIC programs extensively* and I do 
not wish to insert another step in the startup procedure. If I de- 
cide to get Pascal, I would like to keep my BASIC loader on the 
disk controller, and boot Pascal with a loader in RAM. I don’t 
know yet whether this is possible, but the initial trials were prom- 
ising. 

Both BASIC and Pascal disks can be booted from the loaders 
described here. I have not used Pascal enough' to know whether 
extensive use after such a boot would cause later problems. Any- 
one who plans to try this should realize that only one of the two 
ROMs on the controller is a program ROM. That is the one that is 
low on the board with the lines running to the data pins on the 
connector. The other ROM is used internally on the controller, 
and is probably important to the increased data density that Pas- 
cal disks enjoy. That should remain the Pascal version. Will it be 
compatible with the BASIC software? Yes, it is used with BASIC 
software now. DOS speaks directly to the controller with RWTS; 
it does not use any of the routines on the controller card. 

The following instructions will produce a loader that will be 
completely relocatable but will boot only from slot 6. The slot 
can be easily changed if desired. 

Pascal Loader 

The first step is to obtain a RAM copy of the Pascal loader by 
going to the monitor and moving the loader to a convenient spot, 
say $6000, with *6000<C600.C6FFM Now some changes 
must be made: 

6028:85 IF A9 60 

60F8:A5 IF 8D 18 08 4C 01 08 

Return to BASIC with 3DOG and BSAVE PASCAL RELOAD, 
A$6000, L$100. 

What do the changes do? The first four replace four shifts that 
change $C6 to $60. Instead, $C6 is stored in $1 F and the A regis- 
ter is loaded explicitly with #$60. (This is the number that should 
be changed if another slot is used). At the end of the loader, the 
$C6 is retrieved from $1 F and stored in $81 8 where it will provide 
a subroutine linkage for the first sector loader. Note that if the 
loader routine that is brought in from the first sector of the disk 
is ever changed, then there will have to be a corresponding change 
in this loader. 


DISK BOOTSTRAP WITHOUT ROM 

by 

Richard F. Suitor 


BASIC Loader 

Again, first obtain a RAM copy of the standard loader by go- 
ing to the monitor and 

*6000<C600.C6FFM 
Then make the following changes: 

6026:85 1 F A9 60 

60F8:0D A9 A9 8D 1 F 03 A5 1 F 8D 20 03 4C 01 03 4C 2D FF 

Then return to BASIC, and BSAVE BASIC LOADER, A$6000, 
L$109. 

The nature of these changes is similar to those for the Pascal 
loader. This also changes the data loaded in from the first sector, 
and thus may not work on a special purpose disk with its own 
DOS and/or loader. For those, you’ll just have to use your BASICS 
disk, which you’ll have to use to get going anyway. 

The Pascal loader would normally be stored on a BASIC disk, 
and BLOADed when it was desired to run Pascal. (Although the 
starting address is at the beginning, don’t BRUN it unless from 
another slot or drive.) Drive one of slot 6 should have PASCAL3: 
in it when the loader is started. I have not used this method much 
(I don’t have Pascal yet), but know that it will get one going. An- 
other little chore: you must get a copy of either Integer or Apple- 
soft to store in your language card. It is particularly important 
that a monitor be in the $F800-$FFFF region before the language 
card is read from. That can be accomplished by going to the mon- 
itor and accessing C081 twice. This reads from the ROM but 
write enables the RAM on the language card. Then 

*F800<F800.FFFFM 

will move the monitor. If you have a program that needs the old 
monitor (many used the multiply-divide routines which Apple so 
heartlessly discarded in the new version), get a disk copy of the 
old monitor from a friend or dealer with an old Apple. BLOAD it, 
and move it into the monitor region with above command. You 
may be out of luck though, if your program requires that the 
BASIC version that you have in ROM be active. That will enable 
the new monitor. 

10 REM XYZZY BY PETER SCHUG 

20 REM IN INTEGER BASIC 

30 REM THIS PROGRAM DEMONSTRATES 
HOW A TWO LINE GRAPHICS PROGRAM 
CAN BE BOTH EDUCATIONAL AND IN- 
TERESTING 

100 GR 

110 COLOR- RND <16)+ltA= RND (1280 
KX=A MOD 32t Y-A/32J PLOT Xr 
YJ GOTO 110 
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THE APPLE RUMOR MILL 

COURTESY OF PAUL KNEVELS 

FROM The Michigan Apple-Gram 


200 HOME t VTAB 8i INPUT " ENTER 
DECIMAL NUMBER " JNBR 
210 M0D256 * FN M0D( NBR ) 

220 POKE 1 ,M0D256: POKE 0,NBR / 
256 J REM POKE DATA INTO $0,1 


It has been rumored that APPLE is working on an APPLE III 
computer to be released shortly. At present the only advance in- 
formation available is that a new microprocessor will be incor- 
porated into the unit — the 6503. 

Our research staff has been able to uncover a list of new op- 
codes that distinguish the 6503 as a breakthrough in computer 
technology. 

The list is presented here for your information (and enjoy- 
ment). 

AGB ADD GARBAGE 

BBL BRANCH ON BURNED OUT LIGHT 

BAH BRANCH AND HANG 

BLI BRANCH AND LOOP INFINITE 

BPB BRANCH ON PROGRAM BUG 

BPO BRANCH IF POWER OFF 

CPB CREATE PROGRAM BUG 

CRN CONVERT TO ROMAN NUMERALS 

DAO DIVIDE AND OVERFLOW 

ERS ERASE READ-ONLY STORAGE 

HCF HALT AND CATCH FIRE 

IAD ILLOGICAL AND 

IOR ILLOGICAL OR 

MDB MOVE AND DROP BITS 

MWK MULTIPLY WORK 

PAS PRINT AND SMEAR 

RBT READ AND BREAK TAPE 

RPM READ PROGRAMMER’S MIND 

RRT RECORD AND RIP TAPE 

RSD READ AND SCRAMBLE DATA 

RWD REWIND DISK 

SRZ SUBTRACT AND RESET TO ZERO 

SSD SEEK AND SCRATCH DISK 

TPR TEAR PAPER 

WED WRITE AND ERASE DATA 

WID WRITE INVALID DATA 

XIO EXECUTE INVALID OP CODE 

XOR EXECUTE OPERATOR 

XPR EXECUTE PROGRAMMER 

P.S. — There is no word from APPLE as to when we might ex- 
pect these improvements. Perhaps in the next CONTACT. 

P.K. 

3LIST 

10 REM HEX-DEC CONVERTER 


230 POKE 60, 0: POKE 61,01 POKE 6 
2,li POKE 63, 0: REM POKE 
DATA ADDRESSES INTO X 
AND Y REGISTERS 

240 CALL - 936 i VTAB 71 PRINT " 
DECIMAL « M i NBR ♦ CALL - 589 
t REM PRINTS CONTENTS OF 
A1L,H THRU A2L,H IN MONITOR 

250 POKE 1064, 160 i POKE 1065,200 
J POKE 1066,197: POKE 1067,2 
16t POKE 1068,189: POKE 1069 
,160: REM POKE ASCII INTO 
SCREEN 

260 GOTO 400 : REM 

300 HOME : VTAB 8: INPUT 11 ENTER 
HEX NUMBER ”?NBR$ 

310 HI$ * LEFT$ <NBR$,2>:L0$ = RIGHT$ 
< NBR$,2 ) 

320 IF LEN ( NBR$ ) < 3 THEN HI$ « 

M N 

330 HEX* = "0!" + LO* + " “ + HI* 

+ " N D823G“ 

340 FOR I = 1 TO LEN (HEX*)! POKE 
511 + It ASC ( MID* < HEX*> I » 

1)) + 128! NEXT ! POKE 72»0! 

CALL - 144 

350 HOME ! VTAB 7! PRINT "HEX * 

"JNBR*! PRINT "DECIMAL = " i PEEK 
(0) + PEEK (1) * 256! REM 

400 VTAB 20! INVERSE ! HTAB 6! PRINT 
"HIT ANY KEY TO RESUME"! NORMAL 
! GET A*! POKE 0>0! POKE 1,0 
! GOTO 100! REM 


BY VAL J GOLDING 

100 HOME ! GOSUB 500 

110 VTAB 8! HTAB 8! PRINT "SELEC 

T MODE"! PRINT ! HTAB 10! PRINT 
"1 DECIMAL TO HEX"! HTAB 10! 

PRINT ”2 HEX TO DECIMAL"! HTAB 
10! PRINT "3 EXIT"! PRINT ! INVERSE 
! HTAB 12! PRINT "SELECT"! NORMAL 


DEF FN MOD(NBR) = ( NBR / 25 
6 - INT (NBR / 256)) # 256! 
RETURN ! REM DEFINE "MOD" 
FUNCTION 


120 


GET A! ON A GOTO 200 r 300! END 
! REM 


PATRONIZE APPLE ORCHARD ADVERTISERS 



MICROPRODUCTS/APPLE II* 


6 CHARACTER LABEL EDITOR/ASSEMBLER 

The MICROPRODUCTS/APPLE II 6-Character Editor/Assembler follows most of the basic 
rules and conventions and uses the same opcodes as developed by MOS Technology for the 
6502 mircoprocessor, which is used in the APPLE II. This assembler, however, is much more 
powerful than the Apple factory supplied assembler, and incorporates a powerful text editor. 

ADVANTAGES — An assembler with text editor immeasurably improves the user’s ability to de- 
velop assembly language programs. It is approximately as easy to originate a machine language 
program with this assembler as it is to write a program in BASIC. Suppose it is necessary to add 
an instruction between previously written instructions. Without the assembler, it would be nec- 
essary to rewrite all of the instructions following the added instruction in orderto relocate them 
in order. However, with this assembler, it merely requires inserting the new instruction with an 
intermediate line number and type "ASM” and a carriage return. This automatically relocates all 
successive code. This feature permits deletion ahd rearrangement as well as addition of instruc- 
tions. When used in conjunction with our Disassembler/Text File Manager, it can insert portions 
of any text file into the main text file; thus providing features as a Macroassembler. 

The assembler can assign a six-character mnemonic label to memory locations used as tem- 
porary storage registers or assigns a six-character mnemonic label to subroutines. The advan- 
tage here is that it is easier to remember a word related to what the subroutine does than to 
remember hexidecimal addresses for 20 or 30 subroutines or temporary storage registers. Any 
detected errors are immediately displayed in English along with the line number of the error. 

FEATURES: The MICROPRODUCTS/APPLE II 6-Character Coresident Editor/Assembler, for 
high speed program development, is available on APPLE II compatible floppy diskette with in- 
structions. It has two pass implementation and incorporates a text editor. This assembler incor- 
porates provisions for calling any printer driver from any location in memory; ROM, RAM, 
PROM or EPROM. It can operate with any printer to provide hard copy records of programs 
when desired. This assembler also directly supports the MICROPRODUCTS/APPLE I I EPROM 
Programmer and assembles code at over 3000 lines per minute. When data lines (line number 
followed by assembly instructions) are entered a syntax check is performed on each input line 
before that line is stored in the text file. Twenty text editor commandsare available: a) LINKING 
LOADER, (resolves external label references), b) Delete portions of text record, c) Execute a 
DOS command, d) Select any increment for renumbering, e) Load previously saved text file 
from cassette, f) List text file, g) List any portion of text file, h) Initialize text line pointers priorto 
creation of new text file, i) Enter location of printer driver routine, j) Return to monitor, k) Re- 
number lines, I) Execute code without entering monitor, m) Save Text file on cassette, n) Scan 
text file for certain label, o) Assemble data in text file, p) Load text file from disk, q) Save text 
file on disk, r) Tab function, s) Concatenate text files, t) Restore text file pointers if destroyed. 

Part No. 1013 on diskette $29.95 

6 CHARACTER LABEL DISASSEMBLER/ 
TEXT FILE MANAGER 


APPLE II EPROM / Expand your ROM Software 

Add capability to your system monitor or BASIC for business or other applications. Add to or 
replace existing APPLE 1 1 ROM software with operating systems of your own design. Other soft- 
ware systems similar to PASCAL, FORTH, LISP, APL, FORTRAN, COBOL, ALGOL, other 
BASIC’s, etc. may be incorporated into your APPLE II ROM space. New operating systems can 
be put into EPROM memory with our EPROM programmer and plugged directly into your 
APPLE II board with our EPROM socket adaptor. The MICROPRODUCTS EPROM Programmer 
will program INTEL 2716s, 2758s and other 5-volt replacements for 2716s. 


The EPROM Programmer looks just like memory to the computer and can be configured to pro- 
gram memory locations from 8000 to FFFF for a total range of 32K bytes. This means that the 
EPROMs can be used in computer applications other than the APPLE II, i.e., the MICRO- 
PRODUCTS Superkim, etc. This turns your APPLE II into a very low cost, powerful software 
development system. 


FEATURES: 

• Fully assembled 

• Completely self-contained 

• Onboard 25 volt power supply 

• Textool Zero insertion force socket for 
EPROM 

• Double sided plated through holes on fiber- 
glass PC board 

• Gold plated edge connector 

• Fully socketed 

• Latest low-power Schottky IC’s 

• Solder mask 

Part No. 1008 


ADVANTAGES: 

• Put memory in two empty ROM slots in 
APPLE II 

• Replace memory in existing APPLE II ROM 
slots 

• Add new operating systems to APPLE II 

• Programs INTEL 2716 2K byte EPROM’s, 
2758 IK byte EPROMs and other compati- 
ble 5 volt EPROMS 

• Put peripheral drivers in permanent memory 

• Use APPLE II to program EPROMs for other 
computers. 

$99.95 


APPLE IS EPROM SOCKET ADAPTER 

Since the 5-volt EPROMs on the market today are not pin compatible with the APPLE II ROMs, 
they will not work when plugged directly into the APPLE II ROM sockets. MICROPRODUCTS 
makes an EPROM socket adapter into which your 5-volt EPROM is inserted before insertion 
into your APPLE II. One MICROPRODUCTS socket adapter is required for each EPROM to be 
inserted into an APPLE II ROM socket. 

Part No. 1009 $14.95 


APPLE II PRINTER INTERFACE 

Add a Printer to Your Apple II 

With our Parallel Output Port Card that interfaces with any parallel printer. Printer driver rou- 
tines available for Centronics 779. Anadex. OKI DATA 1 10 and PR-40 with others underdevelop- 
ment Driver routines are supplied on cassette but may be ordered on EPROM (Interface brain). 


MICROPRODUCTS announces a powerful new two pass Disassembler/Text File Manager for 
the APPLE II microcomputer. This very useful programming tool disassembles any machine 
language program which resides in the APPLE II, such as BASIC, the Disk Operating System 
and printer driver routines, etc. and creates a text file for the MICROPRODUCTS 6-Character 
Label Editor/Assembler. 

This disassembler will be extremely valuable to any programmer who wants to rewrite, debug, 
modify, analyze and understand the workings, functions and operation of inadequately docu- 
mented programs for which there is no source listing available. 

The Text File Manager portion of this program has the following features: • The Text File can 
be listed in toto • A range of line numbers can be listed • The start address of any printer driver 
routine can be specified • The Text File, or portions thereof can be saved on cassette or disk 
(very useful in generating subroutines) • The text file created starts at the same location as text 
files created by the MICROPRODUCTS 6-Character Label Assembler and is therefore com- 
pletely compatible with that assembler. 

Part No. 1015 diskette $29.95 

APPLEBUG 

APPLEBUG is a powerful programming aid that will assist in developing, debugging and testing 
machine language code on the APPLE II. APPLEBUG will also facilitate tracing logic of existing 
machine language programs such as the monitor, DOS and Applesoft. Since the Trace and 
Single Step functions have been deleted in the APPLE II Plus, APPLEBUG can replace those 
functions and has the capability for virtually an unlimited number of trace addresses and break 
points. Contents of trace addresses are displayed in Hex and ASCII. APPLEBUG has been de- 
signed to operate as a "stand-along” debug package, or in conjunction with the MICRO- 
PRODUCTS 6-Character Label Editor Assembler. In either environment, all modesand options 
are available. I/O management commands are included to facilitate the saving and/or loading 
the Label Table to or from disk or tape. 

Part No. 1028 $29.95 

ASSEMBLER/DISASSEMBLER/APPLEBUG 

COMBINATION 

The Assembler, Disassembler and APPLEBUG are available on a single diskette along with 17 
useful subroutines and the book “How to Program Microcomputers.” 

Part No. 1035 $89.95 

4-CHARACTER ASSEMBLER TO 
6-CHARACTER ASSEMBLER TRANSLATOR 

The MICROPRODUCTS translates text files which were originated on the original 
4-Character Label Co-resident Assembler into a format which permits them to be assembled by 
the new 6-Character Label/Editor Assembler. 

Part No. 1023 $9-90 

THERE ARE NO TRICKS TO PREVENT YOU FROM LOADING, LISTING AND MAKING A 
BACKUP COPY OF YOUR DISASSEMBLER OR ASSEMBLER. 


* APPLE II is a trademark of Apple Computer Co. 



2107 ARTESIA BLVD./REDONDO BEACH, CA 90278 (213) 374-1673 


Parallel Output Port Card is completely assembled, tested and guaranteed. Including Intercon- 
necting cable, software stored on audio cassette and PC board which plugs directly into your 
APPLE II. 

SPECIFICATIONS: Interface hardware consists of • an epoxy fiberglass PC board • double- 
sided • plated through holes • silk screen printed legends • gold plated edge card connector. 


Printer Interface, Part No. 1001 $49.95 

Parallel Output Port Card, Part No. 1005 $39.95 


The MICROPRODUCTS Parallel Output Card can also enable your APPLE II computertocom- 
municate with the outside world. Applications include power controller, tone music generator, 
plotter driver. 

Features include 8 bits output, 15 ma output, current sink or source (can drive LEDs directly). 
TTL or CMOS compatible, will go in any slot on the APPLE II. Data available strobe. 

GENERAL INFORMATION: Data can be transferred to an external device by a STA, STY, or 
STX from assembly language, ora POKEfrom BASIC. The8 bitsoutputcandrivetwo7-segment 
LED displays, relays, SCRs, printer, or anything which requires up to 8 bits of data. 

APPLE INTERFACE BRAIN 

MICROPRODUCTS announces the Interface Brain. This device plugs directly into your 
APPLE II computer to provide permanent memory intelligence for versatile, flexible and inex- 
pensive so-called “dumb" peripheral interfaces. It supplies the permanent full-time availability 
of firmware drivers for the Centronics 779, PR-40 and OKIDATA printers as well as the MICRO- 
PRODUCTS EPROM Programmer the instant your computer is switched on. It allows the 
flexibility of a user changeable EPROM where situations of software or hardware update indi- 
cate a change is desirable or necessary. The Interface Brain is supplied on an EPROM set in a 
MICROPRODUCTS EPROM Adapter Socket, to permit direct insertion into the D8 ROM slot in 
your APPLE II, along with the necessary documentation for its operation. 

Part No. 1004 $54.95 

These products are available at your local computer store or directly from MICROPRODUCTS. 

COMING SOON FOR APPLE II 

• 6809 CONVERSION KIT • 

Video Board to Enable You to Display 
80 Characters, Upper & Lower Case, on the 
Screen of Your Monitor 

AC Power Controller with EPROM Intelligence 

Printer Interface with 
EPROM Intelligence 

Software Downloading Card with 
EPROM Intelligence 
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Bob Denison tells us: “I accepted the responsibility of re- 
viewing the programs because I wanted an excuse to really 
take them apart. I have been in the investment business since 
1964, and a general partner of First Security Company for a 
dozen years. I am also a Professor at the Columbia Business 
School where I teach the security analysis course. Consequently, 
my primary interest in my Apple is in its investment applica- 
tions.” 

SOFTWARE REVIEWS 

by 

Robert Denison 


Program: ANA1 (ALALYSIS 1) 

Author: Galaxy 
P.O. Box 22072 
San Diego, CA 921 22 

Purpose: Statistical analysis of Dow Jones data 
Language: Basic-48K, Applesoft ROM card, and disk required 
Price: Disk & Manual . . . $49.95 

Ratings: 

Speed — 85 
Ease of Use - 85 
Documentation — 80 
Error Comments — 75 
Screen Display — 95 
Purpose/usefulness — 90 
Reliability — ? 

Technical program level — 90 

ANA1 is a set of Basic programs which provides a remarkably 
flexible approach to the analysis and “hires” plotting of any time 
series data. As delivered, the program is set up with history for 
the Dow Jones Industrial Average since 1904. 

Up to 260 points can be plotted on the screen in any of five 
user selected colors. Scaling of the graphs is done automatically, 
subject to user change. Having loaded the initial data (as supplied 
on disk or your own), various mathematical transformations can 
be easily performed and then plotted. Built in functions include 
moving averages, least squares linear fit, and relationships to any 
constant using +, -, x, / operators. The results of such computa- 
tions can be plotted either individually or in an unlimited series 
of overlays. 

Additionally, straight lines can be drawn between any set of 
two point on the screen to portray trend lines. The program also 
maintains the data on a separate “page” so the user is able to flip 
back and forth between the graphs and the underlying numerical 
values. Other features include the ability to “filter” the data for 
user selected changes in absolute or percentage magnitude or time. 

While my description may sound confusing, the program is in 
fact easy to use. The documentation and disk include a built-in 
programmed tutorial which quickly demonstrates the capabilities 
and commands of the system. 

My only substantive reservation about this program is that 
there is no specific labeling of the multiple plots beyond the pre- 
dictable sequence of five colors. Consequently there might be 
problems with the use of either black and white monitors or the 
growing number of printers which can perform “hires dumps.” 
The author told me he was considering a modification to cover 
this, so I would suggest you contact Galaxy before purchase if 
you require such a change. 

In summary, I consider ANA1 to be an excellent plotting pack- 
age (the best I’ve seen) "whether or not you are interested in the 
Dow J ones Averages. 


Program: STOCK MARKET SYSTEM 
Author: RTR SOFTWARE INC. 

P.O. Box 12351 

El Paso, Texas 79912 

Purpose: Stock market charting 

Language: Basic-32K/Applesoft ROM card or 48K and Disk re- 
quired 

Price: Disk & Manual ... $79.95 

One year’s data per stock . . . $9.95 

Ratings: 

Speed — 85 
Ease of use — 85 
Documentation — 70 
Error Comments — 85 
Screen Display — 90 
Purpose/usefulness — 75 
Reliability - ? 

Technical program level — 75 

RTR’S Stock Market System is a highly specific and dedicated 
plotting program for the technical analysis of security prices, pro- 
viding two types of “hires” graphic display. Firstly, individual 
stocks can be charted with the traditional display of “high-low- 
close” bars at the top of the screen with daily and average volume 
shown underneath. In this mode user selected moving averages 
may by overlayed, and grid scaling is automatic. 

Secondly, up to five stocks can be plotted at once to show rel- 
ative performance over the user selected time period. The securi- 
ties are graphed in different colors which are labeled at the bottom. 
No provision is made for hard copy. 

RTR offers to provide one year’s weekly data on any listed 
security (minimum of two) at $9.95 each. Weekly updating can 
be continued by the user. Of course, initial data can be user en- 
tered with any chosen time frequency. 

The user’s manual is 16 pages long, and covers in detail such 
functions as creation and update of files, data transfer to other 
disks, automatic adjustment for stock splits, and charting analysis. 
While I found that the documentation required several readings, 
the program itself was very much easier to use. It is largely self 
prompting, and has good error recovery routines. 

While both ANA1 and STOCK MARKET SYSTEM are adver- 
tised as securities charting programs, they are quite different. 
ANA1 offers far more flexible and sophisticated options for the 
analysis and plotting of stock prices or any other time series data. 
It is also much less expensive. The STOCK MARKET SYSTEM 
does, however, perform its specific objectives very well and the 
availability of historical data on disks may well be very important 
to people who lack either the time or inclination to key it in 
themselves. 

Finally, I would like to point out that while there is great con- 
troversy in academic circles as to the validity and statistical signi- 
ficance of traditional stock market charting systems, nevertheless 
many investment firms at least consider such technical analysis to 
be one of many approaches to the problem. 



SUPER-TEXT™ 


STANDARD FEATURES 

• single key cursor control 

• automatic word overflow 

• character, word and line insertion 

• forward and backward scrolling 

• automatic on screen tabbing 

• single key for entering “the” 

• auto paragraph indentation 

• character, word and line deletion 

• ditto key 

• multiple text windows 

• block copy, save and delete 

• advanced file handling 

• global (multi-file) search and replace 

• on screen math and column totals 

• column decimal alignment 

• chapter relative page numbering 

• complete printer tab control 

• line centering 

• superscripting and subscripting 

• two color printing 

• underscoring and boldface 

• user defined special functions 

• displays UPPER and lower case 
on the screen with Dan Paymar’s 
Lower Case Adapter 

FAST EDITING 

Super-Text was designed by a professional writer 
for simple, efficient operation. A full floating 
cursor and multiple text screens facilitate editing 
one section of text while referencing another. 
Super-Text's advanced features actually make it 
easier to operate, allowing you to concentrate on 
writing rather than remembering complicated 
key sequences. 

FLOATING POINT CALCULATOR 

A built in 15 digit calculator performs on-screen 
calculations, column totals and verifies numeric 
data in statistical documents. 

EXCLUSIVE AUTOLINK 

Easily link an unlimited number of on-line files 
on one disk or from disk to disk. Autolink allows 


The 

Professional 

Word 

Processor 

for the Apple II 
and the Apple II plus 

MUSE. 

THE LEADER IN QUALITY SOFTWARE 


ADVANCED FILE HANDLING 

Single key file manipulation and complete block 
operations allow the user to quickly piece together 
stored paragraphs and phrases. Text files are 
listed in a directory with a corresponding index 
for fast and accurate text retrieval. 

PRINTER CONTROLS 

Super-Text is compatible with any printer that 
interfaces with an Apple. Print single or multiple 
copies of your text files or link files and they will 
be automatically printed in the specified order. 
User defined control characters can activate most 
special printer functions. 


MODULAR DESIGN 

This is a modularly designed system with the 
flexibility for meeting your future word processing 
needs. The first add-on module will be a form 


you to search or print all on-line files with a single letter generator for matching mailing lists with 
command. Typical files of items that can be stored Super-Text form letters. The form letter module 

in this way include personnel files, prospect files, will be available in the first quarter of 1980. 
maintenance records, training records and 
medical histories. 

SUPER-TEXT, requires 48K ($99.95) 

Available TODAY at Computer Stores 
nationwide. Dealer inquiries welcome. For more 
information write: 


MUSE SOFTWARE 330 N. Charles Street Baltimore, MD 21201 (301) 659-7212 
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APPLE 3[ 



RESET KEY 
PROTECTOR 


FAST RELIEF for the 
“ACCIDENTAL RESET BLUES”! 


The Apple II is versitle, powerful, reliable, well documented - truly 
one of the finest of all the small systems. As users, one of our few 
problems is those annoying accidental resets. 

Aside from the general frustration and lost effort we've all 
experienced, there is the possibility of clobbering entire diskettes. 
This is especially dangerous for educational, "turn key", and other non- 
technical users who have real difficulty in recovering. 

Our exclusive RESET KEY PROTECTOR solves the accidental reset problem 
simply and professionally. It is a carefully designed, precision molded 
shield, safely and easily installed without removal of the keytop, 
soldering, or other modifications. Its shape and color blend with the 
Apple's fine esthetics for a professional appearance. 

And it works 1 ACCIDENTAL RESETS ARE TOTALLY PREVENTED, yet deliberate 
usage is allowed for conveniently entering the monitor or Basic. It 
is compatible with both the old and new style keyboards and the Apple II 
plus as well. 

Available now at only $3.25 each, including shipping and handling 
( California residents please add 6% tax ) . 

Get "fast relief for the accidental reset blues"! ORDER YOURS TODAY. 


Send check or money order to: 


Special 
Systems 
Design 


RO. Box 2700 
Huntington Beach, 
CA 92647 


Apple II is a trademark of Apple Computer Inc. 
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ATTACHE STYLE CASE FOR CARRYING AND PRO- 
TECTING THE APPLE COMPUTER. CONSTRUCTED OF 
THE HIGHEST QUALITY LUGGAGE MATERIAL. WILL 
ACCOMMODATE COMPUTER, TAPE RECORDER, OR 
DISC DRIVES PLUS TAPES, OR DISCS AND ALL MAN- 
UALS. NEVER A NEED TO REMOVE COMPUTER FROM 
CASE, SIMPLY REMOVE LID, CONNECT POWER AND 
MONITOR CABLES, AND OPERATE. LID CAN BE 
REPLACED AND LOCKED FOR SECURITY AND 
PROTECTION WITHOUT DISCONNECTING CABLES. 

DELUXE CASE $109.00 

DELUXE CASE/2 DISC DRIVES $119.00 


CASES ALSO AVAILABLE FOR THE TRS-80, 
ATARI, CENTRONICS 730 AND PAPER TIGER 
AS WELL AS MATCHING ATTACHE CASES. 
OTHERS IN DEVELOPMENT. 


COMPUTER ^CFISE COMPflhV 

5650 INDIAN MOUND CT., COLUMBUS, OHIO 
(614)868-9464 » 43213 


APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 
Membership Information 
(206) 271-6939 



The Paper Tiger" 



will take bytes from your Apple. 

for the name of the Paper Tiger dealer 
nearest you, call toll-free 800-343-6412 


Integral Data Systems, Inc. 

14 Tech Circle 
Natick, Mass. 01 780 
(617)237-7610 



NEW 



STUNT CYCLE 


$15.95 



PERPETUAL CALENDAR $ 9.95 
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CLOWNS & BALLOONS $15.95 



PEG JUMP 


$ 9.95 



ALIEN INVASION 

$ 9.95 
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BASEBALL 


$15.95 



BLITZKRIEG 


$15.95 



LORES HYPERPAK $ 6.95 



APPLE ALLEY 


$ 6.95 


HEXAGRAM 22 HEXAGRAM 54 
PRESS RETURN FOR INTERPRETATION 


l-CHING 


$15.95 



GUIDED MISSILE 


$15.95 


All orders must include 3% postage and hand- 
ling with a minimum of $1 .00. California resi- 
dents include 6% sales tax. 

VISA MASTERCHARGE 


Apple II is a trademark of Apple Computers, Inc. 


PROGRAMMA 
INTERNATIONAL, Inc. 

3400 Wilshire Blvd. 

Los Angeles, CA 9001 0 
(213) 384-0579 
384-1116 
384-1117 


FRUSTRATION 


$ 9.95 
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DEATH RACE 


$15.95 



MOUSE HOLE 


$ 6.95 



WORDWACKEY 


$ 6.95 
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APPLE INVADER 


$15.95 



BREAKTHRU 


$ 9.95 



BOXING 


$ 9.95 


Dealer Inquiries Invited 


STAR VOYAGER 


$15.95 
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